error message due to cell being blank

[Blanchetdb]

Hi,

What do need to add to this piece of coding so that the it doesn't stop if no information is inserted in cell Q5

theString = Range(" Q5").Value         'cast to string
        theObject.SetText theString
        theObject.PutInClipboard    'copy from cell B2 to clipboard.
        .Selection.Goto what:=-1, Name:="DelManLocation"
        .Selection.Paste        'paste from the clipboard to the Word Doc.

thans
Dan

 

[Joe4]

How about wrapping it in an IF statement, like:

If Range("Q5")<>"" Then
'    your code
End If

 

[Blanchetdb]

worked great........thank you

 

[Joe4]

You are welcome.