Excel Forum

Code: Select all

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Target.Address = Range("C13").Address Then
        If Range("C13").Value = "" Then
            UserForm1.Show
        Cancel = True
        End If
    End If
    If Target.Address = Range("C14").Address Then
        If Range("C14").Value = "" Then
            UserForm1.Show
        Cancel = True
        End If
    End If
    If Target.Address = Range("C15").Address Then
        If Range("C15").Value = "" Then
            UserForm1.Show
        Cancel = True
        End If
    End If
End Sub

Code: Select all

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Me.Range("c13:c44")) Is Nothing Then
'        If Target.Address = Range("C13").Address Then
        If Target.Value = "" Then
            UserForm1.Show
            Cancel = True
        End If
    End If
'    If Target.Address = Range("C14").Address Then
'        If Range("C14").Value = "" Then
'            UserForm1.Show
'        Cancel = True
'        End If
'    End If
'        If Target.Address = Range("C15").Address Then
'        If Range("C15").Value = "" Then
'            UserForm1.Show
'        Cancel = True
'        End If
'    End If
End Sub