VBA-hjælp til makro

Jeg har lavet (mest lånt fra andre VBA-hajer) nedenstående makro som gemmer filen som *.xlsm. Jeg vil gerne have den til at hente filnavnet fra celle A5 og A6 på det aktuelle ark jeg står på, når makroen aktiveres (filen består af mange ark):
SÅDAN SER MIN MAKRO UD:
Sub GemFilMedMakro()
'
' GemFilMedMakro Makro
'
Dim varWorkbookName As String
Dim sFileExtension As String

    Application.EnableEvents = False
   
    varWorkbookName = Application.GetSaveAsFilename(InitialFileName:="", _
    filefilter:="Excel-projektmappe med aktive makroer (*.xlsm), *.xlsm)", _
    FilterIndex:=1)

       
    If varWorkbookName <> "False" Then
        sFileExtension = CreateObject("Scripting.FileSystemObject").GetExtensionName(varWorkbookName)
        varWorkbookName = Left(varWorkbookName, Len(varWorkbookName) - Len(sFileExtension)) & "xlsm"
        ActiveWorkbook.SaveAs Filename:=varWorkbookName, FileFormat:=52
    End If
   
    Application.EnableEvents = True


End Sub