Hi Jay,
Glad we could finally be of assistance for you
To select multiple sheets you have to put their names into an array, I hope the following example explains everything for you:[vba]Sub NewDaddySelectSheets()
Dim sArr() As String, Cnt As Long, WS As Object
ReDim sArr(0)
Cnt = 0
For Each WS In ActiveWorkbook.Sheets
If InStr(WS.Name, "@") Then
ReDim Preserve sArr(Cnt)
sArr(Cnt) = WS.Name
Cnt = Cnt + 1
End If
Next
If Cnt > 0 Then Sheets(sArr).Select
Set WS = Nothing
End Sub[/vba]If you have any questions, please ask!
Matt