VBA if statement

[tobermory]

Hello,

I hope this is an easy one.

I have a VBA script, and half way through I would like to stop the script if any cell in row 2, in the worksheet titled "Links", contains the "None".

Something like...

If Row 2 in Worksheet "Links" contains the word "None" Then
Exit Sub
Else
'Continue Sub
End If

I'm not versed enough to convert the bold bit into code.

Thank you.

 

[JoeMo]

Dim Found as range
Set Found = Sheets("Links").Rows(2).Find("None")
If Not Found Is Nothing Then Exit Sub
'rest of sub

 

[MrTeeny]

If Application.WorksheetFunction.CountIf(Sheets("Links").Range("2:2"), "*None*")>1 Then .....