Lopslag - ombryd tekst

En mulighed kunne være at sætte en Change macro på fanen...

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveCell.Offset(0, 1).WrapText = True
End Sub

Hej,

Det har jeg prøvet at gøre, men får en run-time error 1004
"kan ikke angive egenskabeen wraptext for klassen range"

andre løsninger?

Nogen der kan hjælpe med rettelse til mine koder?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'når der laves ændringer i cell B14
kode?

Run (minmacro)

End Sub


eller


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'når der laves ændringer i cell B14
kode?

' så skal følgende ske

    ActiveSheet.Unprotect
    Range("Q14:S14").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

luk