Kleine letters omzetten naar Hoofdletters met VBA

[AEHofman]

Hallo

Ik ben op zoek naar een oplossing om: bij invoer van kleine letters er automatisch hoofdletters van te maken.
Aangezien ik al een Private Sub Worksheet_Change(ByVal Target As Range) heb gebruikt voor het automatisch kleuren van de cellen en de opmaak ervan.
Heb ik dan nog een mogelijkheid om de omzetting van kleine letters naar Hoofdletters hieraan toe te voegen?

Andrys

 

[HSV]

Wat regels toegevoegd.

Dim rInt        As Range
      [COLOR=#FF0000]Application.EnableEvents = False[/COLOR]
    Set rInt = Intersect(Target, Range("A1:F40"))
       [COLOR=#FF0000]Target = UCase(Target)
     Application.EnableEvents = True[/COLOR]
    If Not rInt Is Nothing Then

 

[AEHofman]

Hé Harry Thankz
Weer een stap verder in het ontwikkelen van mij planningsprogramma.

Groet
Andrys