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.

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.

I am looking to select a different worksheet(November 8, 2005) based on the
value in activesheet("indivdl").range("A9")

So if I am on activesheet("indivdl") and i pull down the value in
range("A9") that states November 7, 2005. Then I want the activesheet to move
from being "indivdl" to "November 7, 2005"


"Jason Clement" wrote:

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.

Worksheets(Range("A9").Value).Select

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Kryer" wrote in message
...
I am looking to select a different worksheet(November 8, 2005) based on
the
value in activesheet("indivdl").range("A9")

So if I am on activesheet("indivdl") and i pull down the value in
range("A9") that states November 7, 2005. Then I want the activesheet to
move
from being "indivdl" to "November 7, 2005"


"Jason Clement" wrote:

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.