oprettelse af datorække

Til oprettelse af datorække bruger jeg følgende

Private Sub CommandButton1_Click()
Range("a44:a400").Select
Selection.ClearContents
    Dim qnske As Integer
    qnske = InputBox("Skriv ønsket antal kalenderdage")
    Dim antal As Integer
    antal = 43 + qnske
    Dim kalender As Variant
    kalender = "A43:A" & antal
    Dim ugedag As Variant
    ugedag = "B43:C" & antal
    Range(kalender).Select
    Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
        xlDay, Step:=1, Trend:=False
    Range(ugedag).Select
    Selection.FillDown
    Range("c43").Select
    For Each c In Range(kalender)
      c.Offset(0, 16).Value = HelligdagsNavn(c.Value)
      c.Offset(0, 16).Font.ColorIndex = 3
    Next c
   
End Sub

det virker udemærket når jeg ikke har slået "beskyt ark" til, men så snart jeg slår arkbeskyttelse modtager jeg fejlmeddelse om at den ikke kan køre i beskyttet tilstand, og markerer følgende linier

Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
        xlDay, Step:=1, Trend:=False

Mit spørgsmål er: hvordan køre jeg ovennævnte komando med beskyttet ark ?