Hi JMay,

My addition of "Color" should have been ColorIndex!

---
Regards,
Norman

"Norman Jones" wrote in message news:...
Hi JMay,

Without otherwise looking at your event procedure, your problem code line
should read:

ActiveSheet.Range("B4").CurrentRegion.Rows.Interio r.Color =
xlColorIndexNone


---
Regards,
Norman

"JMay" wrote in message
news:M6Ewc.10402$ye1.1834@lakeread05...
Below code in Sheet2 allows user to return to previous clicked cell in
Sheet1:
My Sheet1 code (not shown) Highlights ActiveRow (on Sheet2) setting
interior
= 3.
4th line of code below is my attempt to remove colorindex when retuning
to
sheet1,
however it "ain't-working". Any help appreciated.
TIA,


Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("B:B").EntireColumn) Is Nothing Then
Cancel = True
Application.Goto Reference:=Application.PreviousSelections(1)
ActiveSheet.Range("B4").CurrentRegion.Rows.Interio r = xlColorIndexNone
<<BOMB!!
End If
End Sub