Okay. I understand the concept of what you're saying, but I get an error that says...

"Argument Not Optional"

and the following line of code is highlighted... 

If Not Intersect(U100workhere) Is Nothing Then
and here's the full code I have running right now. 


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(U100workhere) Is Nothing Then
  
  If Target.Interior.ColorIndex = xlNone Then
  
    Target.Interior.ColorIndex = 3
  
  ElseIf Target.Interior.ColorIndex = 3 Then
  
    Target.Interior.ColorIndex = 4
    
  ElseIf Target.Interior.ColorIndex = 4 Then
  
    Target.Interior.ColorIndex = 3
  
  End If
  
  End If
  
  Cancel = True
  

End Sub
Ideas?

Thanks,

Jared