Color change - Cell Pointer
 

I got this macro to change the color of the cell pointer from this NG posted
by Mr. Bob Phillips long time ago. The macro works if its in the workbook.
Can it be modified so if you paste the macro in your Personal worksheet, it
will work on any workbook?

Public OldRng
Private Sub Workbook_Open()
ReDim OldRng(20) 'allow for up to 20 worksheets
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
Dim ThisRng
On Error Resume Next
Set ThisRng = OldRng
If Not ThisRng Is Nothing Then
ThisRng.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 6 'yellow
Set OldRng = Target
End Sub

Thanks