Nachtrag
Ein Problem taucht nun doch noch auf: Wenn das Makro per Button gestartet wird, dann verschwindet natürlich die Markierung. Wie läßt sich das verhindern?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set myRange = Selection
End Sub
Sub DeinMakro()
myRange.Select
'bzw. das, was du mit dem Bereich anstellen willst
End Sub
mfg Jan