Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then Target = UCase(Target.Text)
End Sub
fairwinds said:Hi,
You cannot format a cell like that.
Try this code in the code module for the sheet in question.
Code:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then Target = UCase(Target.Text) End Sub
August said:fairwinds said:Hi,
You cannot format a cell like that.
Try this code in the code module for the sheet in question.
Code:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then Target = UCase(Target.Text) End Sub
Thank you....perfect as always
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set isect = Application.Intersect(Target, Range("A:A"))
If Not isect Is Nothing Then
Target = WorksheetFunction.Proper(Target.Text)
End If
Application.EnableEvents = True
End Sub