Passing listindex to worksheet names

D

David Adamson

Greetings all,



I'm trying to use the listindex to select a Worksheet. I don't want to use
value to set the worksheet name as the list values can be too long.



Worksheets names are "MD Catch 1", "MD Catch 2", "MD Catch 3", etc



I just can't figure how to pass the index+1 to the name property



Any hints would be greatly appreciated.





Sub Sheet_Selections()

'sets the worksheet to use

Wsht = Area_Selection.Which_Catchment.ListIndex + 1



'worksheet to use

Alpha = Worksheets("MD Catch 1")



'other code

End Sub
 
N

Norman Jones

Hi David,

You can use the Next property to return the next sheet object or any of its
properties, such as its name or index.
 
V

Vasant Nanavati

I'm not clear on the problem, but try:

Worksheets("MD Catch " & ListBox1.ListIndex + 1).Select
 
T

Tom Ogilvy

Dim Wsht as Long
Dim Alpha as Worksheet
'sets the worksheet to use

Wsht = Area_Selection.Which_Catchment.ListIndex + 1

'worksheet to use

Set Alpha = Worksheets(Wsht)

Alpha.Activate
 
Top