Zellbereich ausgelesen

Sub BlattSpeichern()
Dim Bereich As Variant
Dim strTBName As String, strWBName As String
Dim strMeldung As String, strTitel As String
Dim strVorschlag As String
Dim strVerzeichnis As String
'Verzeichnis festgelegt
ChDrive "F"
ChDir "F:\Name\09_10\"
'Inputbox
strMeldung = "Dateiname: "
strTitel = "Blatt Export"
strVorschlag = "Name"
'Blattname/Dateiname festlegen/Fehlerabfrage
strTBName = ActiveSheet.Name
strWBName = InputBox(strMeldung, strTitel, strVorschlag)
If strWBName = "" Then Exit Sub
'Blatt kopieren
Bereich = ActiveSheet.PageSetup.PrintArea
ActiveSheet.Copy
With Range("Bereich")
.Value = .Value
End With
'Workbook neu speichern und schließen
ActiveWorkbook.SaveAs strWBName
ActiveWorkbook.Close
End Sub