Error with Saving PDF.

[SkyeS]

For some reason I keep getting an error when I am trying to save two sheets as a PDF. Still new to VBA so i know there is a better way to do this all but this is how i have it set up right now. I always want the Letter sheet to be the first sheet in the PDF, but then I want either CAt, Dog or Bird sheet to be saved afterwards depending on which one the user picks. Right now I get an error and its not saving. I'm not sure what the reason is. I know it has to be a simple syntax error. If anyone could help me that would be wonderful.

Sub GeneratePDF()


MsgBox "start"


If Sheets("Main").Range("G17") = 1 Then
Sheets(Array("Letter", "Cat")).Select
ActiveSheet.ExportAsFixedFormat_ Type:=xlTypePDF, Filename:="D:\" & Sheets("Main").Range("B5").Value & ".pdf"
MsgBox "Saved Cat"
End If


If G18 = 2 Then
Sheets(Array("Letter", "Dog")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\" & Sheets("Main").Range("B5").Value & ".pdf"
MsgBox "Saved Dog"
End If


If G19 = 3 Then
Sheets(Array("Letter", "Bird")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\" & Sheets("Main").Range("B5").Value & ".pdf"
MsgBox "Saved Bird"
End If




End Sub

 

[njimack]

Try this:

Sub GeneratePDF()

Dim sht_name As String


Application.ScreenUpdating = False


Select Case Sheets("Main").Range("G17")


    Case 1: sht_name = "Cat"
    Case 2: sht_name = "Dog"
    Case 3: sht_name = "Bird"


End Select


Sheets(Array("Letter", sht_name)).Select
ActiveSheet.ExportAsFixedFormat_ Type:=xlTypePDF, Filename:="D:\" & Sheets("Main").Range("B5").Value & ".pdf"


MsgBox "Saved " & sht_name


Application.ScreenUpdating = True


End Sub

 

[SkyeS]

Thank you for responding!

I get an error on this line saying "Subscript out of range"

Sheets(Array("Letter", sht_name)).Select

 

[SkyeS]

Sorry. Figured out that problem. (All my fault.) But now I am getting an error in this line

ActiveSheet.ExportAsFixedFormat_ Type:=xlTypePDF, Filename:="D:\" & Sheets("Main").Range("B5").Value & ".pdf"

Saying "Object doesnt support this property or method."

 

[njimack]

The code works perfectly for me. Are you sure the sheet names you've entered in the code (Cat/Dog/Bird) are identical to the actual sheet names? Any leading or trailing spaces would cause the code to fall over.

 

[SkyeS]

Yeah. I already checked that. I played around with it more and I keep getting that it doesn't support that Property or method.

 

[njimack]

What's in Sheets("Main").Range("B5")?

 

[SkyeS]

I tried a different way with the code and it ended up finally working. It doesn't make sense why it didn't work with your code. Logically it should've. But thank you so much for your help!