Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rngCheck As Range Dim lngColourIndex As Long lngColourIndex = 5 Set rngCheck = Range("I6:M35") If Intersect(Target, rngCheck) Is Nothing Then Exit Sub If Target.Interior.ColorIndex = lngColourIndex Then Target.Interior.ColorIndex = xlColorIndexNone Target.Font.Color = vbBlack Else Target.Interior.ColorIndex = lngColourIndex Target.Font.Color = vbYellow End If Cancel = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.