[COLOR=#101094]Dim[/COLOR][COLOR=#303336] wSheet() [/COLOR][COLOR=#101094]as[/COLOR][COLOR=#303336] Worksheet
wSheet [/COLOR][COLOR=#303336]=[/COLOR][COLOR=#303336] Array[/COLOR][COLOR=#303336]([/COLOR][COLOR=#303336]Sheet1[/COLOR][COLOR=#303336],[/COLOR][COLOR=#303336] Sheet2[/COLOR][COLOR=#303336],[/COLOR][COLOR=#303336] Sheet3[/COLOR][COLOR=#303336])
Set wsABC = wSheet[/COLOR]
Option ExplicitSub test2()
Dim wsABC As Variant
Dim wsABCs As Variant
wsABCs = Array("Sheet1", "Sheet2", "Sheet3")
For Each wsABC In wsABCs
Sheets(wsABC).Select
'your code here
With Sheets(wsABC)
.Range("A1").Value = "HI"
End With
MsgBox ActiveSheet.Name 'test loop
Next wsABC
End Sub
Sub Many_Sheets_Array()
Dim i As Long
Dim MyArr As Variant
MyArr = Array("Sheet1", "Sheet2", "Sheet3")
Application.ScreenUpdating = False
For i = LBound(MyArr) To UBound(MyArr)
With Sheets(MyArr(i))
.Range("A2").Value = "Hello " & ActiveSheet.Name
End With
Next 'i
Application.ScreenUpdating = True
End Sub
Option Explicit
Sub Macro1()
Sheets("Sheet1").Activate
ActiveSheet.UsedRange.Select
Sheets("Sheet2").Activate
ActiveSheet.UsedRange.Select
Sheets("Sheet3").Activate
ActiveSheet.UsedRange.Select
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\My\Desktop\Test.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Code:Option Explicit Sub Macro1() Sheets("Sheet1").Activate ActiveSheet.UsedRange.Select Sheets("Sheet2").Activate ActiveSheet.UsedRange.Select Sheets("Sheet3").Activate ActiveSheet.UsedRange.Select ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\My\Desktop\Test.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub