Application.DisplayAlerts = False
Workbooks("New Med Sheets1").SaveAs S
Application.DisplayAlerts = True
is the correct code