Gemmer en Excelfil via VBA

Prøv at lægge nedenstående kode på knappen. Ret referencer og sti til så det passer. Lege nu skal dato ståi A1 og Nr. i B1, men det kan nemt rettes. Den gemmer lige nu direkte på c:

    fdat = Range("a1").Value
    nr = Range("b1").Value
    fnavn = fdat & "-" & nr
    If Svar = MsgBox("Ønsker du at gemme filen " & fnavn & "?", vbYesNo + vbQuestion) _
        = vbYes Then
        ActiveWorkbook.SaveAs Filename:= _
            "C:\" & fnavn & ".xls"
    End If

Tak Jkrons, Jeg vil lege videre.

Velbekomme :-)