Private Sub ListBox1_Click()
Worksheets(ListBox1.Value).Activate
End Sub

Mike F
"wilcster" wrote in message
...
I have an worksheet used to input data which includes a drop down list
with
subjects, lets say by way of example -types of animal. In other cells you
can
input information about the subject from the drop down list. Further
sheets
are named that reflect the names in the drop down list

I want to be able to select a worksheet based on the subject from the drop
down list using VBA.

At the moment I can readily select one sheet such as:

Worksheet("tiger").Activate

How do I substitute "tiger" for whatever is chosen on the input worksheet
cell drop down list????

Cheerz

Wilcster