Conditional Message

[josros60]

Have this code, but doesn't' work

 If Range("Q:Q").Select = Yes Then
   
     sBody = "Hi" & " " & vbCrLf & vbCrLf & "Here is the monthly invoice # for" & " " & wksht.Cells(rw, "Q").Value & "." & "As per your instructions we will withdraw the amount from your loading wallet.  " & vbCrLf & vbCrLf & "" & "Please contact me if you have any questions.Thanks,"
                
     Else
     sBody = "Hi" & " " & wksht.Cells(rw, "B").Value & ", " & vbCrLf & vbCrLf & "Here is the monthly invoice # for" & " " & wksht.Cells(rw, "Q").Value & "." & "advise us if you would prefer to wire us payment to our updated  SVB USD Bank  account shown on the invoice, or if we may collect the payment from  your Wallet account.  " & vbCrLf & vbCrLf & "" & "Please contact me if you have any questions.Thanks,"
          
     End If

 

[Rx_]

Range("Q:Q").Select = Yes
Don't think Select recognized a value.
Give some idea about the goal. Is this trying to simulate a Form for someone to fill in?