Hi, hhpack3,
what should that be good for?
Code goes behind the sheet, adapt the name of the sheet to your needs:
Ciao,![]()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox Worksheets("Sheet1").Range(Target.Address).Interior.Color Cancel = True End Sub
Holger
Bookmarks