makro der gemmer ud fra værdi i celle

Hej eksperter.

Jeg vil genre lave en makro der kan vælge værdien i celle a1 og indsætte denne i en inputbox som man så bare skal godkende.

Har lavet en start selv:

Sub gema1()

Dim strFilNavn As String
Dim strHdMappe As String

strHdMappe = "l:\e3\prognoseafv\"



strFilNavn = InputBox("Gem regneark som:", "Gem dagens prognonseafvigelse", "")


    ActiveWorkbook.SaveAs Filename:=stre & strFilNavn ' Aktiv efter gem

End Sub