Sub MySaveName() Application.DisplayAlerts = False ActiveWorkbook.SaveAs [B28] & [Y5] & [B11] & [Y5] & [S10] & [Z5] Application.DisplayAlerts = True End Sub