auswahl des buchstabens

hab das jetzt so:

Sub test()
Dim Z As Range
For Each Z In Selection
If Z <> "" Then
Z.Value = "a" & Z.Value
End If
Next
End Sub

möchte aber ne auswahl haben, welcher buchstabe vorne angefügt
werden soll !!!

kann jemand helfen ???