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

--
Regards,
Tom Ogilvy


"David Adamson" wrote in message
...
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