Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "A1" '<== change to suit
Dim sh As Worksheet

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target

On Error Resume Next
If Not Me.Parent.Worksheets(.Value) Is Nothing Then

Me.Parent.Worksheets(.Value).Activate
End If
End With
End If

End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
__________________________________
HTH

Bob

"Randy Carriere" <Randy wrote in message
...
I was wondering if there is a way where I can click say cell A1 which
currently has the text 'Tuesday' in it. By clicking on this cell, the
user
is directed to a new tab (which the user has labelled as Tuesday).

My knowledge is somewhat limited. I know I can run a macro and then press
<CTRL and the short cut key, but I was hoping to be able to just use the
mouse and click on the cell to direct me to the new tab.

Any suggestions would be greatly appreciated.