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

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