Try this code...

If this post helps click Yes
--------------
Jacob Skaria


Dim intRow
intRow = 1
Do While Range("H" & intRow) < ""
ActiveWorkbook.Sheets("" & Range("H" & intRow) & "").Visible = True
intRow = intRow + 1
Loop