At the bottom of your worksheet, you should see a "tab" with the name of the worksheet, i.e. "Sheet1" unless you have changed it. Simply place your mouse/cursor right over the words "Sheet1" and right click your mouse, then follow the rest of the steps.
Right-click the worksheet tab that you want the CAPS to be forced on and select the View Code option. That opens the VBE (Visual basic Editor) When the new VBE window opens, paste the code in the window on the right hand side, then ALT+Q to exit and test.
Welcome to the world of VBA programming!
EDIT: Too slow! Never walk down to Accouinting with these guys around!
hi i have tried this on XP and it works fine but it dosent work on 97 WHY?
can you help?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
' Only look at single cell changes
If Target.Count > 1 Then Exit Sub
' Set Target Range
Set rng = Range("A1")
' Only look at that range
If Intersect(Target, rng) Is Nothing Then Exit Sub
' Action if Condition(s) are met
Target = UCase(Target)