2 første bogstaver skal være med stort

Har fundet denne lille makro, som laver det første bogstav i de celler, der er markeret, om til stort.

Sub test()
Dim c As Range
For Each c In Selection
    If TypeName(c.Value) = "String" Then c = Application.WorksheetFunction.Proper(c)
Next
End Sub
Jeg har en kolonne, hvor de 2 første bogstaver skal være med stort. Hvordan gør jeg det eller hvis alle bogstaver skal være med stort?

Eks 1. aa11111 til AA11111 eller
aa11a11 til AA1A11