View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Frank Kabel Frank Kabel is offline
external usenet poster
 
Posts: 3,885
Default Code - different Worksheet

Hi
you need a event procedure for this. Enter the following in your
worksheet module of the first sheet (assumption cell A1 is the cell you
enter your data)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
On Error GoTo CleanUp:
With Target
if .value <"" then
Application.EnableEvents = false
worksheets(.value).activate
end if
End With
CleanUp:
Application.EnableEvents = True
End Sub


--
Regards
Frank Kabel
Frankfurt, Germany

tennec wrote:
I would love some assistance in writing some code that would look at
the data entered(three choices) in a cell that would then go to one
of three different worksheets. For example, if "A" is entered in a
cell, then this would take you to worksheet "A". Thank you.