GemSom variabelt ark

Hej
GemSom på nyt ark hver gang
Jeg har noget VBA kode der virker perfekt, bare det er et navngivet ark, men min opgave er at lave en GemSom på et nyt ark hver gang.
Ark40 er det ark jeg laver en kopi af hver gang jeg bruger programmet. Bruges til at registrerer betalte fakturaer pr uge, et nyt ark pr. uge.

Koden ser således ud nu
Sub GemSom()
'
'  Sluk lige skærmen
    Application.ScreenUpdating = False
   
    Dim strFilename    As String
    Dim strUser          As String
    Dim rngRange      As Range

'  Considering Sheet1 to be where you need to pick file name
    Set rngRange = Ark40.Range("N1")
'  Create File name
    strFilename = rngRange.Value
    strUser = Ark40.Range("O1")

    Ark12.Activate  ' det er Ark12 der skifter hele tiden
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "D:\Users\" & strUser & "\Desktop\" & strFilename & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

End Sub