D
DAA
Public OldRng
Private Sub Workbook_Open()
ReDim OldRng(20) 'allow for upto 20 worksheets
End Sub
The macro below changes the pointer color. It was provided
by Mr. Bob Phillips today. I created an add-in file for it
hoping that it would work when I open another WORKBOOK. It
didn't work. Please help. Thanks.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As
Object, ByVal Target
As Range)
Dim ThisRng
On Error Resume Next
Set ThisRng = OldRng(Sh.Index)
If Not ThisRng Is Nothing Then
ThisRng.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 6
Set OldRng(Sh.Index) = Target
End Sub
Private Sub Workbook_Open()
ReDim OldRng(20) 'allow for upto 20 worksheets
End Sub
The macro below changes the pointer color. It was provided
by Mr. Bob Phillips today. I created an add-in file for it
hoping that it would work when I open another WORKBOOK. It
didn't work. Please help. Thanks.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As
Object, ByVal Target
As Range)
Dim ThisRng
On Error Resume Next
Set ThisRng = OldRng(Sh.Index)
If Not ThisRng Is Nothing Then
ThisRng.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 6
Set OldRng(Sh.Index) = Target
End Sub