Error in Filename when saving

Hi,

I have a problem with the following code

CW = CLng(InputBox("Please enter the current week (1-53)", "week"))
    Dim Savepath
    Dim dat4
    Set dat4 = Application.FileDialog(msoFileDialogFolderPicker)
    With dat4
    .Title = "Select Savepath"
    .InitialFileName = "J:\c_public\_events this month"
              If .Show = -1 Then
                 Savepath = .SelectedItems(1)
             End If
    End With
    ActiveWorkbook.SaveAs Filename = Savepath & "\events_week" & CW & ".xls"

The File is named "False.xls" in the correct folder. Does anyone know, how to get the name to be "events_week37.xls"?