Excel einzelnes Arbeitsblatt als PDF speichern

Hallo Gemeinde,

Ich möchte eine einzelnes Arbeitsblatt aus einer Mappe heraus als PDF speichern
ich habe ein kleines Problem und komme nicht dahinter, wo der Fehler liegt.

Folgender Code soll ausgeführt werden:

Sub edp2odp()

Dim A As Integer

A = MsgBox("Wollen Sie diese Aktion wirklich durchführen?", _
vbQuestion + vbYesNo, " EDP wird im Dropboxverzeichnis gespeichert ")
If A = vbNo Then Exit Sub

'EDP in neue Arbeitsmappe kopieren;speichern mit Dateinamen "box"

Dim box As String
box = Date & ("_ODP.pdf")

Sheets(Array("ODP")).Select
Sheets(Array("ODP")).Copy

Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:="C:\Users\Frank\Dropbox\ & box"
Application.DisplayAlerts = True

ActiveWindow.Close

End Sub

Wäre schön, wenn mich jemand in die richtige Richtung stoßen kann

LG Frank

ActiveSheet.SaveAs Filename:="C:\Users\Frank\Dropbox\ & box"  

Sub edp2odp()
    Dim PATH As String, fso As Object
    If MsgBox("Wollen Sie diese Aktion wirklich durchführen?", vbQuestion + vbYesNo, " EDP wird im Dropboxverzeichnis gespeichert ") = vbNo Then  
        Exit Sub
    End If
    PATH = "C:\Users\Frank\Dropbox\" & Format(Now(), "dd.mm.yyyy") & "_ODP.pdf"  
    On Error Resume Next
    Kill "C:\Users\Frank\Dropbox\*_ODP.pdf"  
    On Error Goto 0
    Application.DisplayAlerts = False
    Sheets("ODP").ExportAsFixedFormat xlTypePDF, PATH  
    Application.DisplayAlerts = True
    Set fso = Nothing
End Sub