Hi girls and guys
Am running the below code, however, I would like to be able to pause, so that the user can pick the current month, rather than have to modify the macro on the 1st of each month

I am aware this is possible, but have not been able to find previous request for help.

 Dim savedate As Variant   
   savedate = Range("ck4").Value
ndate = Range("cl4").Value
   savedate = Mid(ndate, 1, 2) & "_" & Mid(ndate, 4, 2) & "_" & Mid(ndate, 7, 4)
               
  Sheets("Import").Select
  
 Application.ScreenUpdating = True
 
   ActiveWorkbook.SaveAs Filename:="S:\COE\_Private\Work\July17\Exit check\" & "Raw  Positions" & " " & savedate & ".xlsm", CreateBackup:=False
As usual, will appreciate any and all help anyone can give

Thanks