Using an Inputbox to confirm
ndate = Date
nmonth = Month(Date) 
savedate = Format(ndate, "dd_mm_yyyy")
Sheets("Import").Select
Application.ScreenUpdating = True
SaveMonth = InputBox("Change month number if not " & MonthName(nmonth), "Save Month", nmonth)
SaveMonth = MonthName(SaveMonth) & Format(Date, "yy")
ActiveWorkbook.SaveAs FileName:="S:\COE\_Private\Work\" & SaveMonth & "\Exit check\" & "Raw  Positions" & " " & savedate & ".xlsm", CreateBackup:=False