On cell double click

[Noz2k]

Is it possible to open up a userform when a cell in worksheet is double clicked?

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(False, False) = "A1" Then
    Cancel = True
    userform1.Show
End If
End Sub

Change A1 to suit.

 

[villy]

Yes as VoG has stated...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    MyForm.Show
End Sub

 

[Noz2k]

Thanks VoG

Just to expand on that a little, I want that to be possible for each cell in column A (or ideally from A3 to the last row)

 

[VoG]

Try this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("A2:A" & LR)) Is Nothing Then
    Cancel = True
    userform1.Show
End If
End Sub

 

[Noz2k]

Thanks, works perfectly

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("A3:A" & LR)) Is Nothing Then
    Cancel = True
    Sheets("MainMenu").cboIssue.Value = Target.Offset(, 4).Value
    UserForm2.cboIssueID = Target.Value
    UserForm2.Show
End If
End Sub