Export every sheet like .pdf with its own name

[avisoft20]

Hi,
I am trying to create pdf from excel workbook.but pdf will save with their own name..i have multiple sheet in a single workbook

Example:
sheet1-Jan
sheet2-feb
sheet3-march

I wana to save all .pdf in same directory.
jan.pdf
feb.pdf
march.pdf
I am using this VBA code :
Option Explicit

Sub SheetsToPDFs()

Dim strPath As String
Dim wks As Worksheet

strPath = ActiveWorkbook.Path & ""

For Each wks In ActiveWorkbook.Worksheets
wks.ExportAsFixedFormat xlTypePDF, strPath & wks.Name & ".pdf"
Next wks

End Sub
But when i run this code my signature i.e in image format it not showing

Thanks
avisoft

 

[AlphaFrog]

Include the path separator

strPath = ActiveWorkbook.Path & "\"

 

[avisoft20]

Hi,
I am trying to create pdf from excel workbook.but pdf will save with their own name..i have multiple sheet in a single workbook

Example:
sheet1-Jan
sheet2-feb
sheet3-march

I wana to save all .pdf in same directory.
jan.pdf
feb.pdf
march.pdf
I am using this VBA code :
Option Explicit

Sub SheetsToPDFs()

Dim strPath As String
Dim wks As Worksheet

strPath = ActiveWorkbook.Path & ""

For Each wks In ActiveWorkbook.Worksheets
wks.ExportAsFixedFormat xlTypePDF, strPath & wks.Name & ".pdf"
Next wks

End Sub
But when i run this code my signature i.e in image format it not showing

Thanks
avisoft