give this a try

Sub select_sheets()
Dim ws As Worksheet
Dim cell As Range
Set ws = Worksheets("Sheet1")
For Each cell In ws.Range("A1:A10")
On Error Resume Next
If cell.Value "" Then
Worksheets(cell.Value).Select False
End If
On Error GoTo 0
Next
End Sub


--

Gary Keramidas
Excel 2003


"Faraz A. Qureshi" wrote in
message ...
What code would select sheets that are named in the range: Sheet1!A1:A10
ignoring blanks cells, if any?

Thanx in advance.
--
Best Regards,

Faraz