Passing listindex to worksheet names

[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

 

[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.

 

[Vasant Nanavati]

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

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

 

[David Adamson]

Vasant,

That works a treat thankyou very much!

David

 

[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