Excel arbjde på valgte celler

Nedenstående tager værdien af myText og tilføjer til teksten i alle valte celler.

Er der nogen der har en bedre metode????



Sub MyPaste(myText As Variant)
Dim myRange

myRange = Selection.Address
For Each myCell In Range(myRange)
  ActiveSheet.Range(myCell.Address).Value = ActiveSheet.Range(myCell.Address).Value & myText
Next
End Sub

Kortere og pænere (synes jeg)

Sub myPaste(myText As Variant)
    Dim myCell As Range
    For Each myCell In Selection
    myCell.Value = myCell.Value & myText
Next

Super

Du får piont og jeg lukker.

Fint nok. Tak for points.