Sub sheet2pdf() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=xPath & "\" & xWs.Name & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub