Hey Ivan,

Thanks for the assistance.

What I have in that event at this time is this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Force Caps on certain ranges
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("AK15:AM22,B32,X2,Q7,Q10")) Is_
Nothing Then
With Target
.Value = UCase(.Value)
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

How can they be combined?

-Minitman



On Sun, 3 Oct 2004 01:09:45 -0500, Ivan F Moala
wrote:


Your have to combine the current Event with the one Trevor provided.

What code do you currently have in that Event now.