VBA kode til at gemme fil

Hej
Jeg har en lille udfordring, jeg bruger denne VBA-kode til at gemme filen, navnet fremkommer i celle J1. det fungere i andre filer men nu kan jeg ikke få den til at fungere, nogle der kan hjælpe.

Sub Bestillingsliste_Rektangelafrundedehjørner1_Klik()

ThisFile = Range("j1").Value

Application.Dialogs(xlDialogSaveAs).Show ThisFile, 52

End Sub