How to use Like operator in VBA? - vba

Question

I am writing a macro, that counts number of columns in a certain Sheet, then copies this sheet content to Sheet1 inside the same workbook.
Sub test()
Dim LastCol As Long
Set currentsheet = ActiveWorkbook.Sheets("Sheet1")
LastCol = Sheets("APage").Range("A1").End(xlToRight).Column
Sheets("APage").Range("1:1" & LastCol1).Copy
currentsheet.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub
The particularity is that sheet names could be: "APage", "BPage", "10Page" etc. So first latter can be different, but the "Page" always remains in the sheet name.
How to use correctly a * to say in VBA to use all the sheets, named Pages, with any letters at the begging of the sheet name? Thanks!

Answer 1

Sadly you can't. But you can use code like
Dim ws As Excel.Worksheet
For Each ws In ActiveWorkbook.Worksheets
If InStr(ws.Name, "Page") > 0 Then
'ws is a worksheet with the text 'Page' in its name
End If
Next

Answer 2

In order to loop through all worksheets with wildcard names, you can do something like this:
Sub LoopThroughWorksheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name Like "*Page" Then
'Do whatever with this particular sheet
End If
Next ws
End Sub

Answer 3

There's no wildcard search within the Sheets collection. You'll need to iterate through them, for example:
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If InStr(ws.Name, "Page") > 0 Then
...
End If
Next