Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Target.Value)
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target(1).Value = UCase(Target(1).Value)
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "[COLOR=#ff0000]Name1[/COLOR]" Or Sh.Name = "[COLOR=#ff0000]Name2[/COLOR]" Then
Application.EnableEvents = False
Target(1).Value = UCase(Target(1).Value)
Application.EnableEvents = True
End If
End Sub