Export Excel worksheet as PDF using VBA button

Question

I keep running into an error 9 using this code. I am not sure why this is not wroking for my worksheet

Dim SavePath    As String
Dim SaveAs      As String
Dim