Hi,
I have a problem with the following code
The File is named "False.xls" in the correct folder. Does anyone know, how to get the name to be "events_week37.xls"?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"
Bookmarks