Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
skip to worksheet
I appreciate your help with this problem:
In A column I have a list of worksheets, on double click on the cell I want to skip to proper worksheet. I have something like this: Private Sub Click() Dim Wk As Worksheet Dim WksName As String For Each Wk In Worksheets WksName = Range(A5).Value Wk.Activate = Wk.Range("A5").Value Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
skip to worksheet
Hi,
In the worksheet code module, something like this: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column < 1 Then Exit Sub Dim ws As Worksheet On Error Resume Next Set ws = Worksheets(Target.Value) If Not ws Is Nothing Then ws.Activate End Sub -- Hope that helps. Vergel Adriano "raraschek" wrote: I appreciate your help with this problem: In A column I have a list of worksheets, on double click on the cell I want to skip to proper worksheet. I have something like this: Private Sub Click() Dim Wk As Worksheet Dim WksName As String For Each Wk In Worksheets WksName = Range(A5).Value Wk.Activate = Wk.Range("A5").Value Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Worksheet to Worksheet skip blanks | Excel Worksheet Functions | |||
skip to worksheet | Excel Worksheet Functions | |||
Skip to next input cell on protected worksheet | Excel Programming | |||
skip printing worksheet | Excel Discussion (Misc queries) | |||
skip worksheet | Excel Programming |