Selecteren cellen Hoofdletters maakt?(opgelost)

[excel09]

Wie weet een code of kan deze ombouwen
dat zodra ik een aantal cellen selecteer die de letters Hoofdletters maakt

Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:L150")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.Value)
Next
End Sub

alvst bedankt

 

[Cobbe]

For Each x In Range("A1:L150")

wordt:

For Each x In Selection

Cobbe

 

[excel09]

For Each x In Range("A1:L150")

wordt:

For Each x In Selection

Cobbe

Thxxxxxxxxxxxxxxxxxx
voor jouw snelle reactie

Het werkt Perfect

 

[Gert Bouwmeeste]

Zet de status van de vraag dan even op opgelost via de link rechtsonder.