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