Hi, hhpack3,

what should that be good for?

Code goes behind the sheet, adapt the name of the sheet to your needs:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox Worksheets("Sheet1").Range(Target.Address).Interior.Color
Cancel = True
End Sub
Ciao,
Holger