Slet af celler i forskellige Ark

    Dim ws As Worksheet, wsRens As Worksheet
    Dim rArea As Range
    Dim sArk(1 To 3) As String ' 1 to 3 kan 3 ændres hvis du har flere  ark
    Dim sCeller As String
    Dim iCount As Integer
   
    Set ws = ActiveSheet
   
    sArk(1) = "Ark1" ' udskift Ark1 med navnet på dit ark
    sArk(2) = "Ark2" ' -//-
    sArk(3) = "Ark3" ' -//-
   
    sCeller = "W2:W48" ' Skriv "første celle : sidste celle"

    For iCount = LBound(sArk, 1) To UBound(sArk, 1) ' gennemløber alle dine ark (3)
        Set wsRens = Sheets(sArk(iCount))
        Set rArea = wsRens.Range(sCeller)
        rArea.Clear 'sletter indhold vil du også have slettet formatering så brug "rArea.ClearContents"
    Next
    ws.Activate

Private Sub CommandButton1_Click()
    Sheets("Ark1").Range("W2:W48").ClearContents
    Sheets("Ark2").Range("W2:W48").ClearContents
    Sheets("Ark3").Range("W2:W48").ClearContents
End Sub