Force Uppercase....

[MasterChief]

I use the following code to change lower case to upper, from a user form to a sheet, however it seems to work only when I go back into the cell and tab from cell to cell, which will then change it to upper... any ideas please.

Cheers

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A2:M9999")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub

 

[jindon]

Hi

If you are entering the data from userform then

something like this work?

Sheets("YourSheetName").Range("a2").Value = UCase(Me.TextBox1.Text)