Change Cell Entry To Uppeercase
Thanks Guys,
That helps.
-Minitman
On Thu, 29 Apr 2004 17:28:39 +0100, "Bob Phillips"
wrote:
The obvious way
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:H10")) Is Nothing Then
With Target
.Value = UCase(.Value)
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
worksheet code module.
|