Convert String to a Worksheet type variable

[cd]

How do I convert a string with the name of a worksheet
to a Worksheet type variable?

 

[Dave Peterson]

Dim Wks as worksheet
dim myName as string

myname = "hi there"

set wks = nothing
on error resume next
set wks = activeworkbook.worksheets(myname)
on error goto 0

if wks is nothing then
msgbox "no such name in the activeworkbook"
else
'ok
end if