VB设立Excel 超链接

VB设置Excel 超链接我用VB新建一个EXCEL表,在Sheet1的A1输入Sheet2,A2输入Sheet3,如何用VB设置A1

VB设置Excel 超链接
我用VB新建一个EXCEL表,在Sheet1的"A1"输入"Sheet2","A2"输入"Sheet3",如何用VB设置"A1","A2"的超链接地址分别指向工作薄"Sheet2"和"Sheet3"?请高手指教!多谢!
[解决办法]

Dim xlSheet As WorkSheet 'Sheet1
xlSheet.Hyperlinks.Add xlSheet.Range("A1"), "", "Sheet2!A1", "", "Sheet2"
xlSheet.Hyperlinks.Add xlSheet.Range("A2"), "", "Sheet3!A1", "", "Sheet3"