One way:

With something
For iCtr = 1 to n
If TopCell Is Nothing Then
MsgBox myStr(iCtr) & " wasn't found"
MySub
Else
.Range(TopCell, BotCell).Select
End If
Next iCtr
End With
'...
End Sub


Public Sub MySub()
'Do something here
End Sub


In article ,
"Jeff" wrote:

Hi,

This is a partial copy of my VBA macro. My question is: Is possible in VBA
to execute a sub in an " If ... then statement?"

If TopCell Is Nothing Then
MsgBox myStr(iCtr) & " wasn't found"
Exit Sub --- here can I request the execution of sub instead of
Exit sub?
Else
.Range(TopCell, BotCell).Select
End If
Next iCtr
End With
Thanks,