Fejlmeddelelse ved brug af makro

Jeg har lavet en makro til at nulstille en række celle med data. Den virker fint hvis de forskellige ark ikke er låst, men når jeg låser de forskellige ark, så kommer den op med en fejlmeddelelse hvor der bare står 400.

Makroen ser ud som følger:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Existing" Then
        Range("H2").Select
    Else
        Range("E15").Select
    End If
End Sub
Sub sletUdvalgte()
Const ark1c = "C14:C22,C26,C28,C30,C35,E15,F14:F22,F26,F28,F30,F35,H15"
Const ark1r = "C13,F13"
Const ark1b = "H2:H7"
Const ark2c = "C21,C23,C30,C31,C32,C37,E15,F21,F23,F30,F31,F32,F37,H15"
Const ark2r = "C21,F21,C24,F24"
Const ark2b = "C20"
Const ark2a = "F20"
Const ark3c = "C22,C26,C29,C30,C31,C36,E15,F22,F26,F29,F30,F31,F35,H15"
Const ark3r = "C21,F21,C23,F23"
Const ark3b = "C20"
Const ark3a = "F20"

    nulstil 1, ark1c, 0
    nulstil 1, ark1r, "-"
    nulstil 1, ark1b, " "      'eller "" henholds blank= " " tom = ""
    nulstil 2, ark2c, 0
    nulstil 2, ark2r, "-"
    nulstil 2, ark2b, "=Existing!C18"
    nulstil 2, ark2a, "=Existing!F18"
    nulstil 3, ark3c, 0
    nulstil 3, ark3r, "-"
    nulstil 3, ark3b, "=Existing!C18"
    nulstil 3, ark3a, "=Existing!F18"


    Worksheets("Existing").Activate        '<<<<<<<<<<<<<
End Sub
Private Sub nulstil(ArkNr, område, tegn)
    Worksheets(ArkNr).Activate
    Range(område).Select
    Selection.Value = tegn
End Sub



I arket findes der en række rullelister, måske har det noget med dem at gøre.