For Each sh In Activeworkbook.Worksheets
tmp = CLng(Right(sh.Name(Len(sh.Name)-5))
If tmp = 21 And tmp <= 120 Then
If sh.Range("AV3").Value = "" Then
sh.Select
Exit For
End If
End If
Next sh

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Greg B" wrote in message
...
What I am trying to do is have a macro lookup cell b1 from sheets21 to
sheet120 and when it finds the first sheet that this cell is blank to
execute a macro.

I used to use the code below but it is way to long over this many sheets.

If Sheet21.Range("AV3") = "" Then
Sheet21.Select
Else
If Sheet22.Range("AV3") = "" Then
Sheet22.Select
Else
If Sheet23.Range("AV3") = "" Then
Sheet23.Select
Else


etc.

Thanks Greg