Wenn Sie aus einer geöffneten Excel-Datei das gerade aktive Arbeitsblatt separat als eine neue Datei abspeichern wollen, können Sie das bequem von folgendem Makro erledigen lassen:
Sub Blatt_als_Datei()
datname = InputBox("Dateiname:")
ActiveSheet.Copy
ActiveWorkbook.SaveAs datname
ActiveWorkbook.Close
End Sub