Fejl: Kan ikke angive egenskaben HorizontalAlignment for klassen Range

Hej
Jeg har en vba-kode der sørger for at rækkehøjden tilpasses indholdet i nogle flettede celler ved at sætte indholdet ind i en anden celle og så tilpasse rækkehøjde ud fra den. Men jeg får nu følgende fejlmeddelelse:

Run-time error '1004'
Kan ikke angive egenskaben HorizontalAlignment for klassen Range

Koden ser således ud:
Private Sub Worksheet_Change(ByVal Target As Range)
   
    Dim KeyCells As Range
   
  Set KeyCells = ActiveSheet.Range("b13:b13")
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
          Is Nothing Then

        Range("h13").Select
                ActiveCell.Formula = "=b13"
    Range("H13").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("b17").Select
    Application.ScreenUpdating = True

End If

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub


Hvad er der galt her?