Jump to other worksheets in a workbook based on cells in a worksheet in the same workbook

**GillianR** · 02-05-2015, 08:24 PM

Hi,
I have a workbook with many worksheets. In the first sheet there are numbers in each cell of column 2. Numbers will be added to this column as necessary. The numbers have been used to name each of the other worksheets. Each of the numbers has been allocated to a worksheet. I want to be able to double click on a number in the first worksheet to jump to the worksheet which is named by that corresponding number.

I'm sure this can't be that hard - tried this but it only works on the first cell and target sheet. Any ideas?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
v = Target.Value
For Each sh In Worksheets
If sh.Name = v Then
Cancel = True
sh.Activate
End If
Next
End Sub

**GC Excel** · 02-05-2015, 08:30 PM

Hello GillianR and welcome to the forum,

If the numbers are in column 2 (B), then this code should work:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim v As String
    Dim sh As Worksheet
    
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    v = Target.Value
    For Each sh In Worksheets
        If sh.Name = v Then
            sh.Activate
        End If
    Next
    Cancel = True
End Sub

**GillianR** · 02-05-2015, 08:45 PM

Thanks GC Excel, Works perfectly

Jump to other worksheets in a workbook based on cells in a worksheet in the same workbook

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Jump to other worksheets in a workbook based on cells in a worksheet in the same workbook

Re: Jump to other worksheets in a workbook based on cells in a worksheet in the same workb

Re: Jump to other worksheets in a workbook based on cells in a worksheet in the same workb

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Copy data from 2 cells in one worksheet to the same cells in all worksheets in a workbook

[SOLVED] Copying ranges of cells from different worksheets in a workbook based on an if then

Copy multiple worksheets from 2003 workbook to one worksheet in 2010 workbook

jump to specific date in cell-range based on last opening of workbook

Linking cells in a worksheet to other worksheets in a workbook

Bookmarks

Bookmarks

Posting Permissions