Leerzeichen an bestimmter Stelle setzen

Suche ein Makro, welches mir in den markierten Zellen ein Leerzeichen einfügt.
z.B: 11HAD10AA150
in 11 HAD10 AA150
in diesem Beispiel soll an 3.te und 9.te Stelle ein Leerzeichen eingefügt werden.

vielen Dank im voraus

alden123

Sub InsertBlanks()
For Each Cell In Selection.Cells
    Cell.Value = Mid(Cell.Value, 1, 2) & " " & Mid(Cell.Value, 3, 5) & " " & Mid(Cell.Value, 8)  
Next
End Sub