!!!?

その手があったか!!
今まで、真面目に名前を付けることしか考えなかったわ。

Dim Sh As Worksheet
Set Sh = Thisworkbook.Worksheets("(´・ω・｀)b")

こんなのもありだな。