Zeichenkette verändern

Meine Aufgabe ist es: Die Null muß wegfallen (3 Zahl) und
die letzte Zahl auch. Außerdem muß ein Buchstabe (ein X)
vorne mit eingefügt werden: Das Ergebnis sollte also dann
so aussehen:

aus 11011112 muß über Makro X111111 herauskommen

Ich habe es so probiert:

Sub pn()
Dim pn As String
pn = Range("A1").Value
pn = Left(pn, 2) & Mid(pn, 4, 4)
Range("A1").Value = pn
End Sub

Klappt zwar, aber nur für eine Zelle (nämlich A1). Gebe ich
("A1:A99") ein, funkts nicht. Außerdem weiß ich nicht wie ich
diesen Buchstaben vor der Zeichenkette kriege....

Danke im Voraus!