怎样通过一个单元格计算出来的结果，定位打开对应的超链接？

求各位有空帮忙看看，感谢。。。

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Row <> 2 Then Exit Sub
　If Target.Address <> "$A$2" And Target.Address <> "$B$2" Then Exit Sub
　Dim sht
　For Each sht In Sheets
　　If sht.Name = CStr([a2].Value + [b2].Value) Then sht.Select: Exit Sub
　Next
End Sub