Activating a Procedure in an Excel Worksheet

Hello...
I've created a procedure called Force_UCase in the VBE using the often
copied example code shown below.
How do I get it to now perform in my spreadsheet?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("B19:B60")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub

Copy your code from the VBE.
Back to excel
right click on the worksheet tab that should have this behavior
select view code
Paste your code there.

(and clean up the code from its other spot.)

This kind of event code goes behind the worksheet that needs the fix.

alathosco wrote:
>
> Hello...
> I've created a procedure called Force_UCase in the VBE using the often
> copied example code shown below.
> How do I get it to now perform in my spreadsheet?
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Application.EnableEvents = False
> If Not Application.Intersect(Target, Range("B19:B60")) Is Nothing Then
> Target(1).Value = UCase(Target(1).Value)
> End If
> Application.EnableEvents = True
> End Sub

--

Dave Peterson

Thank you!!! It worked like a charm!

"Dave Peterson" wrote:

> Copy your code from the VBE.
> Back to excel
> right click on the worksheet tab that should have this behavior
> select view code
> Paste your code there.
>
> (and clean up the code from its other spot.)
>
> This kind of event code goes behind the worksheet that needs the fix.
>
> alathosco wrote:
> >
> > Hello...
> > I've created a procedure called Force_UCase in the VBE using the often
> > copied example code shown below.
> > How do I get it to now perform in my spreadsheet?
> >
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > Application.EnableEvents = False
> > If Not Application.Intersect(Target, Range("B19:B60")) Is Nothing Then
> > Target(1).Value = UCase(Target(1).Value)
> > End If
> > Application.EnableEvents = True
> > End Sub
>
> --
>
> Dave Peterson
>