Minor change in code

[hallingh]

I have a piece of code that is showing a userform if cell F6 is double clicked. Here is the code:

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
  If Target.Address = "$F$6" Then
    Cancel = True
    EnterDate.Show
  End If
End Sub

I just want to change this to show the userform if the cell is clicked at all instead of double clicked. I would greatly appreciate any help with this. Thanks for the looks!

Hank

 

[VoG]

Try

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
  If Target.Address = "$F$6" Then
    EnterDate.Show
  End If
End Sub

 

[Weaver]

You'd possibly have to go with the Worksheet_SelectionChange event, as I don't think there's a sngle click, unless you go for a right click instead. Lose the cancel parameter.

 

[hallingh]

Code works great. Thanks guys!

 

[Airfix9]

!