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
Bookmarks