Makro nur für markierten Zellen

ich habe hier im Forum ein Makro gefunden den ich auch benutzen könnte. Es soll aber ein bißchen geändert werden und zwar das Makro soll nur für markierten Zellen ausgeführt werden:

Sub MX()
For i = 1 To Range("A65536").End(xlUp).Row Step 1
Cells(i, 1).Activate
If Len(ActiveCell.Value) = 5 Then
text1 = ActiveCell.Value
text2 = Left(text1, 2) & " 0" & Right(text1, 2)
If Left(text1, 2) = "MX" Then Cells(i, 1).Value = text2
End If
Next i
End Sub

Was muß geändert werden?

Danke im voraus....

Gruß
Dzana