Szia!
Így:


MsgBox "Open the file you want to transform!"
Application.Dialogs(xlDialogOpen).Show

a = Workbooks.Count

Dim Hely, UjNev, Sor
Hely = Workbooks(a).Path & ""
Nev = Workbooks(a).Name
UjNev = Left(Nev, (Len(Nev) - 4))

stb stb