Saving individual tabs as PDF with set naming convention

[stroffso]

Hi All,

I have a workbook which has 16 tabs in it (and potentially more) which are quotes for indivdual clients.

What i want to do is have a macro which saves each tab as a pdf under the naming convention "Quote" Then the tab name, then cell D2, then cell D4. This would need to be saved in a specified folder on my D drive.

I have checked on this forum and found several pieces of code that relate to naming arrays but is there any way where it would just print/pdf all tabs and apply the above without having to name each one?

thanks in advance

 

[shg]

Sub stroffso()
  Const sPath       As String = "D:/somePath/Quote"
  Dim wks           As Worksheet

  For Each wks In Worksheets
    With wks
      .ExportAsFixedFormat _
          Type:=xlTypePDF, _
          Filename:=sPath & .Range("D2").Value & Range("D4").Value
    End With
  Next wks
End Sub

 

[stroffso]

Thanks for that. Thr first time I ran this it worked fine however ever since it kee[ps returning a run time error '1004'? I thought it might have been cause I had too many tabs in the doc but tried it with just 5 tabs and it still didnt work? Any ideas?

Sub stroffso()
  Const sPath       As String = "D:/somePath/Quote"
  Dim wks           As Worksheet

  For Each wks In Worksheets
    With wks
      .ExportAsFixedFormat _
          Type:=xlTypePDF, _
          Filename:=sPath & .Range("D2").Value & Range("D4").Value
    End With
  Next wks
End Sub

 

[stroffso]

Ok so i took the 2nd cekk Rabge Value off and it appeared to work. I think I know what the issue is now, the 2nd cell range was a date and had / / in it so i presume this is where the error has come from. thanks for the solution.

Thanks for that. Thr first time I ran this it worked fine however ever since it kee[ps returning a run time error '1004'? I thought it might have been cause I had too many tabs in the doc but tried it with just 5 tabs and it still didnt work? Any ideas?

 

[shg]

You're welcome.