Problem i makro

I en makro 'Sub OverførTilNæsteMåned()' i Module2 har jeg følgende linier:

    Range("A4").Select
    Application.CutCopyMode = False
    Selection.ClearContents

Problemet er at jeg i en anden makro, der ligger i arket, kalder en kalenderkontrol har en henvisning til denne celle.
Herunder er denne anden makro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address
        Case "$A$4", "$A$5", "$A$6", "$A$7", "$A$8", "$A$9", "$A$10", _
        "$A$11", "$A$12", "$A$13", "$A$14", "$A$15", "$A$16", "$A$17", _
        "$A$18", "$A$19", "$A$20", "$A$21", "$A$22", "$A$23", "$A$24", _
        "$A$25", "$A$26", "$A$27", "$A$28", "$A$29", "$A$30", "$A$31", _
        "$A$32", "$A$33", "$A$34", "$A$35", "$A$36", "$A$37", "$A$38", _
        "$A$39", "$A$42", "$A$43", "$A$44", "$A$45", "$A$46", "$A$47", _
        "$A$48", "$A$49", "$A$50", "$A$51", "$A$52", "$A$53", "$A$54", _
        "$A$55", "$A$56", "$A$57", "$A$58", "$A$59", "$A$60", "$A$61", _
        "$A$62", "$A$63", "$A$64", "$A$65", "$A$66", "$A$67", "$A$68", _
        "$A$69", "$A$70", "$A$71", "$A$72", "$A$73", "$A$74", "$A$75", _
        "$A$76"
        Call OpenCalendar
    End Select
End Sub
   
Når makroen 'Sub OverførTilNæsteMåned()' når til linien 'Range("A4").Select' kaldes kalenderkontrollen i stedet for at fortsætte med 'Sub OverførTilNæsteMåned()'. Makroen kan så først fortsætte når jeg har lukket kalenderkontrollen.

Hvordan undgår jeg denne fejl?
Kan man vælge pågældende celle og udføre en 'ClearContents' uden at gøre cellen aktiv og dermed åbne kalenderkontrollen?