folgenden Code würde ich gerne dahingehend ändern, das als Dateiname, der Name eingesetzt wird, der in Zelle B10 steht.
Viele Grüße
Michael
Sub BlattKopieren()
Application.ScreenUpdating = False
With ThisWorkbook.ActiveSheet
.Visible = xlSheetVisible
.Copy
End With
With ActiveWorkbook
With .Worksheets(1).Cells
.Copy
.PasteSpecial xlPasteValues
Application.CutCopyMode = False
.Cells(1).Select
End With
.SaveAs ThisWorkbook.Path & "\" & "Test.xls", xlOpenXMLWorkbook 'Dateinamen anpassen *** _
_
_
_
End With
End Sub