Double click to open useform

[ipbr21054]

Hi,
I am using the code supplied below.

At present i have the range as A3:A100
In future i dont want to start fault finding why it doesnt work when my entries go over A100 so how can i edit the code so it will overcome this.
I could put A1000 but this is an example of me trying to explain as im not to good at this.
Thanks

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    If Not Application.Intersect(Target, Range("A3:A100")) Is Nothing Then
        Cancel = True
        LockPickMe.Show
    End If
End Sub

 

[mumps]

Try:

Range("A:A")

 

[ipbr21054]

Worked fine thanks

 

[mumps]

You are very welcome.