Convert String to a Worksheet type variable

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

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

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

--

Dave Peterson