Auf alle markierten Zellen den Makro anwenden

>>"Sub Test()
If Len(ActiveCell) > 0 Then ActiveCell = Mid(ActiveCell, 1, Len(ActiveCell) - 1) & "x"
End Sub

Gruß Hajo"<<

Allerdings möchte ich, dass dieser Code mehrere markierte Zellen auf einmal ändert, und nicht nur immer die aktivierte.
wie änder ich also den Code, damit nicht nur die erste, sondern alle markierten Zellen auf einmal geändert werden???

Vielen Dank und Grüße
Patrick !