vba find word in range query

[hatstand]

Hi, I'm trying to modify the code below to find the letter "r" in the range "File_Range". It works fine if there is an "r" in 1 or more cells. But if there are no letters "r" it gives a runtime 1004 error. Where I would like it to display a message.

Sub test()
Dim l As Long

l = Application.WorksheetFunction.Match("r", Range("File_Range"), 0)


MsgBox "Please ensure all files are available!", vbCritical + vbOKOnly, "Cancelled"






End Sub

 

[JPM]

Try this one:
Sub test()
Dim l As Long
On Error GoTo ErrorHandler

l = Application.WorksheetFunction.Match("r", Range("File_Range"), 0)


MsgBox "Please ensure all files are available!", vbCritical + vbOKOnly, "Cancelled"

ErrorHandler:
MsgBox "There is no r in the range"




End Sub

 

[hatstand]

Thats done it. The only thing I added was an exit sub after the first message, as it would show both messages if there was no "r" in the range.

Thanks once again.