Sub Button8_Click()
Dim sh As Worksheet
Dim rng As Range
Set sh = Sheets("indvdl")
Set rng = sh.Range("a9")

sh.Activate
rng.Select ' If you want to select that range
End Sub

"Kryer" wrote:

I am trying to figure out how to modify the code to select a worksheet based
on a cell. I have new worksheets every day that are labeled in a manor as
this: November 8, 2005 and November 7, 2005 , etc... I have a data validation
list and a button. The list contains the names of the worksheets and I want
to beable to use the drop and then hit the button to activate that sheet.
This is what I have so far and cannot think of where to go from here.

Sub Button8_Click()
Dim sh As Worksheet
Dim rng As Range
Set sh = Sheets("indvdl")
Set rng = sh.Range("a9")

Worksheets.Select = rng
End Sub

I even tried this:

Sub Button8_Click()
Dim sh As Worksheet
Dim rng As Range
Set sh = Sheets("indvdl")
Set rng = sh.Range("a9")

Worksheets("A9").Select
End Sub

Any help please.