Navngive et område men en markro

Jeg er ved at lave et regneark hvor jeg skal have en markro til at navngive område. Området er ikke det samme hver gang og skal have et nyt navn hver gang markroen bliver kørt. Her prøvet noget forskelligt men har ikke kunnet få det til at virke.
Jeg kan se navnet inde i Name Manager men ikke bruge den.

Sub Test()
'
' Test Macro
'

'
    Dim PivoName As String                '(Tager en bestemt navn på en uge U_48 næste gang U_49)
    PivoName = Range("P_Name").Value
   
    Sheets("Asset Event Details").Select            '(For at være sikker på at den starter i det rigtige feldt)
    Range("a2").End(xlToRight).Select
    ActiveCell.Offset(4, -2).Select
   
    Dim CellName1 As String                '(tager navnet på den første celle)
    CellName1 = ActiveCell.Offset(0, 0).Address(0, 0)
   
    Selection.End(xlDown).Select
    Selection.End(xlToRight).Select
   
    Dim CellName2 As String                '(tager navnet på den sidste celle)
    CellName2 = ActiveCell.Offset(0, 0).Address(0, 0)

    strRange = "=Asset Event Details!" & CellName1 & ":" & CellName2

    ActiveWorkbook.Names.Add Name:=PivoName, RefersToR1C1:=MyArea
    ActiveWorkbook.Names.Add Name:=PivoName, RefersTo:=strRange
    ActiveWorkbook.Names(PivoName).Comment = ""
End Sub