If Word not Found then Macro will skip and continue..

[ronanbaker1]

Hi Guys,

I want to a macro to start of with a Find method Eg Account..something like this

Cells.Find(What:="Account").Activate

Account could be in any row or may not be in the document.

My problem is when it is not in the workbook my macro will come up error. Any Ideas on how to recode my macro to fix this.

If possible could someone keep it simple as I think it should be something like.

Dim Finder as string
Set Finder = Cells.Find(What:="Account",...............
'Problem here
'
If Finder is not found then skip till next part of macro.
If it is then just select the Cell and I can work of that.


Also Can I do a Find formula to Find Either 'Account' Or 'Debt' Or Asset'?? Just want to know save me copy and pasting it down to change a name.

 

[Jonmo1]

Try

Dim Finder As Range
On Error Resume Next
Set Finder = Cells.Find(What:="Account",...............
On Error Goto 0
If Not Finder Is Nothing Then
    'Do stuff here when the word IS found
Else
    'do nothing
End if