TheWendigo
Gebruiker
- Lid geworden
- 3 nov 2005
- Berichten
- 117
Avond,
ik heb hier ergens (en mijn dank) deze code ivm hoofdletters :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As Range
Application.EnableEvents = False
For Each b In Target.Cells
If Not b.HasFormula Then _
b = UCase(b)
Next b
Application.EnableEvents = True
End Sub
en dan krijgt men dit HOOFDLETTERS
zou er dan ook iets bestaan dat men dit krijgt : Hoofdletters ?
alvast bedankt.
ik heb hier ergens (en mijn dank) deze code ivm hoofdletters :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As Range
Application.EnableEvents = False
For Each b In Target.Cells
If Not b.HasFormula Then _
b = UCase(b)
Next b
Application.EnableEvents = True
End Sub
en dan krijgt men dit HOOFDLETTERS
zou er dan ook iets bestaan dat men dit krijgt : Hoofdletters ?
alvast bedankt.