Select some sheets automatically

[Guest]

I am trying to write a routine to select all sheets that have (1) at the end
of the sheet name. This is what I have so far, can anyone help?

Thanks

Sub Select_1()

Dim SelectedSheets As String
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
If ws.Name Like "*(1)" Then
SelectedSheets = SelectedSheets + ", " + ws.Name
End If
Next ws
Sheets(SelectedSheets).Select

End Sub

 

[Norman Jones]

Hi M,

Try:

'=============>>
Public Sub Tester()
Dim ws As Worksheet
Dim blReplace As Boolean

blReplace = True

For Each ws In ActiveWorkbook.Worksheets
If ws.Name Like "*(1)" Then
ws.Select blReplace
blReplace = False
End If
Next ws
End Sub
'<<=============

 

[Guest]

Thanks that works great!

Hi M,

Try:

'=============>>
Public Sub Tester()
Dim ws As Worksheet
Dim blReplace As Boolean

blReplace = True

For Each ws In ActiveWorkbook.Worksheets
If ws.Name Like "*(1)" Then
ws.Select blReplace
blReplace = False
End If
Next ws
End Sub
'<<=============