Sub SearchTest() 
    ' Charles Kenyon 
    ' If word not found skip rest of macro
    Const strWORDTOFIND As String = "Test"
    With ActiveDocument.Range.Find
      Let .Text = strWORDTOFIND
      .Execute
      If .Found = False Then GoTo endofsub 
     End With 
    ' Rest of macro here
     MsgBox strWORDTOFIND & " is present." 
endofsub: 
End Sub