Tags: bob, cell, color, excel, macro, microsoft, msdn, phillips, pointer, software, time

Color change - Cell Pointer

On Microsoft » Microsoft Excel

1,533 words with 1 Comments; publish: Wed, 04 Jun 2008 15:06:00 GMT; (30662.50, « »)

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

All Comments

Leave a comment...

  • 1 Comments