No puedo convertir a pdf en excel 2003

He intentado pero me sale error, mi macro es la siguiente:

Deberia guardar un archivo en pdf con el nombre que esta en la celda B1, pero marca error, no lo reconoce, y por lo que he investigado, solo funciona en excel 2007 en adelante, ¿alguien me puede ayudar para excel 2003? Se lo agradecería.

Sub guardaPDF()
nbreLibro = Range("B1")

Dim Carpeta As String

ruta = ActiveWorkbook.Path
With ActiveSheet

  .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  ruta & nbreLibro & ".pdf" ', Quality:=xlQualityStandard, IncludeDocProperties:= _
  True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With

End Sub