Double click any cell in column A to open another sheet

[josros60]

Hi,

how can I change the code below to open another sheet by double clicking in any cell in column A insted of just A2 cell:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Select Case Target.Address
 Case "$A$2"
            Sheets("GL MAPPING").Visible = True
            Sheets("GL MAPPING").Activate
End Sub

 

[mikerickson]

I'm surprised that that code will compile without an End Select. Try

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
        Cancel = True
        Sheets("GL MAPPING").Visible = True
        Sheets("GL MAPPING").Activate
    End If
End Sub

edit: oops, should be .Column

 

[EXCEL MAX]

Or this...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Select Case Target.Address
        Case "$A$" & Split(Target.Address, "$")(2)
            Sheets("GL MAPPING").Visible = True
            Sheets("GL MAPPING").Activate
    End Select

End Sub

 

[josros60]

Thank you so much, worked perfectly.

 

[EXCEL MAX]

I'm glad if you found this as solution,
but depends what you are trying to do.
Mikerickson's solution is also well.