Ecxel stürzt ab...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wbk As Workbook
Dim wsh As Worksheet
Dim FileSave As String
Set wbk = ThisWorkbook
Set wsh = wbk.Worksheets("VBB_Form")
Application.DisplayAlerts = False
country_code = wsh.Cells(2, 7).Value
vin = wsh.Cells(12, 7).Value
FileSave = "VBB " & country_code & " " & vin & ".xls"
ActiveWorkbook.SaveAs Filename:=FileSave
End Sub

Wer kann mir helfen?
Danke und Gruss,
Gromminger