Makro nur für ausgewählten Bereich ?

was muß ich an meinem Makro machen, damit es nur für ausgewählten Zellen gilt und nicht für einen vorgegebenen Bereich???

Sub Zellen_Kommentar()
Dim Zelle As Range
On Error Resume Next
For Each Zelle In Range("b25000:b35060")
Zelle.AddComment
Zelle.Comment.Text Text:=Zelle.Comment.Text & vbLf & Zelle.Value
Next Zelle
End Sub

Danke vorab...

Gruß
Aladin