Olá a todos, estou com um problema para salvar minha planihas em PDF, está dando erro poderiam ver o que esta acontecendo?
Segue o código:

Sub gravarPDF()
destino = "C:" 'Local onde será gravado o arquivo ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
destino & Range("B1").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub