Select Row to Open Form

Hi,

Am having some trouble expanding the range of this macro, I would like it to go from A5:AA5 so when someone double clicks the cell the form will open for this row.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target(1, 1).Address = "$A$5" Then
        Cancel = True
         UserForm1.Show
    End If
End Sub

Many Thanks
Karl

Use

If Not Intersect(Target,Range("A5:AA5")) Is Nothing Then

Try:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target(1, 1), Range("A5:AA5")) Is Nothing Then
        Cancel = True
         UserForm1.Show
    End If
End Sub

Dom

Please mark your thread as solved and remember to leave feed back / add to the reputation of those who contributed a helpful response. See my signature for how to go about it.