Re:Workbook über aktive Zelle umbenennen

!!! Brauche trotzdem noch Eure Hilfe !!!
Weiß noch nicht wie sich der Name der Datei dann auch automatisch in der Makro abändern kann. Wie gesagt >This Workbook< funktioniert nicht, da zur gleichen Zeit mehrere Exceldateien geöffnet sind.
mfg ant

Dim datname As String
datname = Cells(1, 2)

Do
fName = Application.GetSaveAsFilename(InitialFilename:="D:\Eigene Dateien\" & datname, _
fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName