Put the code in the sheet's code module, not the ThisWorkbook
code module.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"packat" wrote in message
news:VFGzd.9118$h.2309@trnddc04...

I am reading a book on Excel and VBA programming (for Excel
2000). There is one example in the book that I could not get
to work.
See the code below. This code is Workbook SelectionChange
event, which is supposed to change the color of entire rows and
columns intersecting the selected cell(s).

I am also using Excel2000. Anyone spot any error in this code?
Thanks,
pac

-------------
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Rows.Interior.ColorIndex = 0
target.EntireColumn.Interior.ColorIndex = 36
target.EntireRow.Interior.ColorIndex = 37
Debug.Print target
End Sub
-------------