If sh.Cells(1, 1).Value = " " Then sh.Name = "MEANS"

The above looks for a space in A1. If it's an empty cell you're checking
for do this:

If sh.Cells(1, 1).Value = "" Then sh.Name = "MEANS"


--
Jim Rech
Excel MVP