vba定义公共SHEET名

我有一张SHEET，名字是 “aaa"

我要在三段程序里都要调用这张表，所以想要在定义公共常量，但是不成功，求解决
即，我要把三段程序里的
dim asheet as worksheet
set asheet=sheets（”aaa")
这2句放到全局变量哪里，但是不行
求解决方法

dim asheet as worksheet 放在模块最前面就行，不要放在过程里。但是第二句赋值只能放在过程里。
对于工作表对象变量设为公用变量感觉没必要。

sub adsf() for i = 1 to 2 sheets(i).name = application.worksheetfunction.substitute(sheets(i).name, "a", "5") next end sub