Opening a VBA form if 2 cells are populated

[Pauljj]

Morning all, I have set up a user form to appear and have set it up as follows

Private Sub Worksheet_Change(ByVal Target As Range)


Application.EnableEvents = False


If Me.Range("K44") And Me.Range("K49") > 0 Then


AWPI.Show

End If

This does work but the problem being the form activates everytime something is actioned in that sheet (if K44 and K49 are above zero)

How can I activate the form, only once at the point K44 and K49 have something entered

Thank you
Paul

 

[Tim_Excel_]

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("K44, K49")) Is Nothing Then 

    Application.EnableEvents = False

    If Me.Range("K44") And Me.Range("K49") > 0 Then
        AWPI.Show
    End If

    Application.EnableEvents = True

End If

End Sub

 

[Pauljj]

Brilliant, thanks Tim