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