Macro for Upper Case

[Ajay Kumar Sharma]

Plz tell me how can i write macro for changing text entry to upper case
Plz help
regards,
Ajay

 

[SteveO59L]

No need for code. Use the Upper() command

 

[Ajay Kumar Sharma]

sir,
Thanks, but i learn macro

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub

 

[Richard Schollar]

Hi

Do you mean when a user inputs an entry then the macro will automaticlly convert their input to upper case? If so then perhaps the following in the worksheet module of your the worksheet you want this to apply to:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell as Range, rng As Range
Set rng = Intersect(Range("A:A"),Target)
If Not rng Is Nothing Then
  Application.EnableEvents = False
  For Each cell In rng
    cell.Value = UCase(cell.Value)
  Next cell
  Application.EnableEvents = True
End If
End Sub

Change the address in red to whichever column/range you want this to apply to.