Gem under nyt filnavn

Som jeg har forstået det skulle nedenstående spørge efter stien, hvor man ønsker at gemme filen.
såfremt man klikker på 'Cancel' eller klikker på 'OK' burden den vente indtil man har tastet noget.

Er det ikke korrekt?
Hvis ikke, hvordan får man den så til det?

NavnInd:
NytNavn = InputBox("Indtast sti for filnavnet c:\dokumenter\excel\)", "Indsæt teksten hvor du vil gemme arket")
If NytNavn = "False" Then GoTo NavnInd Else Range("B3") = NytNavn
Range("B4").FormulaR1C1 = "=IF(R[-2]C<>"""",TEXT(R[-2]C,""ddmmåå""),"""")"
FilNavn = Range("B3") & "Indkøbsstatistik " & Range("B4") & ".xls"
Range("A1").Select
NytNavn = stDato
Sheets(1).Name = NytNavn
ActiveWorkbook.SaveAs Filename:=FilNavn