Loop Macro to all sheet

[Chandresh]

Hi Team,

My below code is running on activesheet how to loop through all sheets except two sheet

Sub PDFSheetNoPrompt()
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & ""
strName = wsA.Range("A1").Value _
         ' & " - " & wsA.Range("A2").Value _
          '& " - " & wsA.Range("A3").Value
'create default name for savng file
strFile = strName & ".pdf"
strPathFile = strPath & strFile
'export to PDF in current folder
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=strPathFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'confirmation message with file info
  '  MsgBox "PDF file has been created: " _
   '   & vbCrLf _
    '  & strPathFile
exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

 

[WaterGypsy]

Hiya... you could try this .... changing the condtion to change the sheets you want to ignore

Sub DoItAll()

Dim ws As Variant
For Each ws In ThisWorkbook.Worksheets
    
    If ws.Name <> "excluded" _
    And ws.Name <> "excluded again" Then
    
        ws.Activate
        PDFSheetNoPrompt
        
    End If
Next ws

End Sub

 

[Chandresh]

Thanks