aoc
06-16-2011, 10:50 PM
Dear All,
I put below code to "vba project ( default workbook ) this workbook" section it works but when I put it to "vba project ( personal.xlsb ) this workbook" it does not work. My aim is to use it when I open any excel workbook
version 2007
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static OldRange As Range
On Error Resume Next
Target.Interior.ColorIndex = 3
OldRange.Interior.ColorIndex = xlColorIndexNone
Set OldRange = Target
End Sub
I put below code to "vba project ( default workbook ) this workbook" section it works but when I put it to "vba project ( personal.xlsb ) this workbook" it does not work. My aim is to use it when I open any excel workbook
version 2007
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static OldRange As Range
On Error Resume Next
Target.Interior.ColorIndex = 3
OldRange.Interior.ColorIndex = xlColorIndexNone
Set OldRange = Target
End Sub