speichern unter mit Datum und Zellbezug

Private Sub CommandButton1_Click()
Dim strPath As String
strPath = "U:\Test\"
strPath = strPath & Format(Date, "yymmdd") & "_" & Sheets("Erfassungsbogen").Range("B19") & ". _
xls"
ThisWorkbook.SaveAs strPath
End Sub

Hallo User !
Hat erst funktioniert, jetz kommt immer der Debagger und markiert This Workbook.
Was mache ich falsch ?
Hoffe auf Hilfe !
Gruß Bommi