Sorter data, udskift ("Ark1") med ("A1").value

Hej
Jeg har denne, og den virker fint, så længe jeg bruger den på Ark1, men hvordan får jeg den til at virke på Ark2, Ark3 .....
Jeg har skrevet fanenavnet i celle A1
Jeg har prøvet at udskrifte ("Ark1") med ("A1").value, men desværre uden held
Sub Makro1()
    ActiveWorkbook.Worksheets("Ark1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ark1").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
        "C4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Ark1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub