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

Activating a Procedure in an Excel Worksheet
 

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

Activating a Procedure in an Excel Worksheet
 

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