Macrp to goto sheet when i click on a cell

[tonywatsonhelp]

Hi everyone,

I have a list of my sheets down sheet "Welcome" Range C7:C200

I
I'd like a macro that when i click on the cell it takes me to that sheet name.

please help if you can.

Thanks

Tony

 

[Dryver14]

Have you considered hyperlinks?

 

[My Aswer Is This]

This script will do what you want. I set it to work from C7 to the last row in column C with data
I also set it to where you have to double click on the cell. Just selecting the cell can be a problem if you accidently click on the cell. It's hard to accidently double click on a cell.

And the script will always take to you to Range("A1") on the sheet.

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified 3-7-18 5:40 AM EST
Dim Lastrow As Long
On Error GoTo M
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
If Not Intersect(Target, Range("C7:C" & Lastrow)) Is Nothing Then
Cancel = True
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Dim ans As String
ans = Target.Value
Application.Goto Sheets(ans).Range("A1"), True
End If
Exit Sub
M:
MsgBox "The sheet " & Target.Value & "  Does not exist"
End Sub

 

[vcoolio]

Hello Tony,

Place the following code into the "Welcome" sheet module:-

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

If Intersect(Target, Columns(3)) Is Nothing Then Exit Sub 'You could change Columns(3) to Range("C7:C200")to hardcode the macro.
If Target.Count > 1 Then Exit Sub

Sheets(Target.Value).Select

End Sub

Double click on a sheet name and the code will take you directly to that sheet.

I hope that this helps.

Cheerio,
vcoolio.

 

[tonywatsonhelp]

Hi And the Answer Is, that's great thank you.

VCoolio, thank you very much I've now gone from no options to two options both are great

Thanks very much for your help

Tony

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

 

[vcoolio]

No worries Tony. I'm glad that I was able to help in some way.

Cheerio,
vcoolio.