Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Activating a Worksheet? | Excel Discussion (Misc queries) | |||
Worksheet activating | Excel Programming | |||
Worksheet activating | Excel Programming | |||
Running Event Procedure When Cell Updated on Excel Worksheet | Excel Programming | |||
Activating a worksheet | Excel Programming |