VBS add hyperlink in Excel

Need to handle this situation when design framework. please refer the below:

Dim objExcel
Set objExcel = WScript.CreateObject("Excel.Application")

objExcel.Visible = TRUE
objExcel.Workbooks.Open "C:\test.xlsx"
objExcel.Workbooks(1).Activate
objExcel.Workbooks(1).Worksheets(1).Range("A1").Select

Dim sLinkAddress
sLinkAddress = "http://www.izheyi.com"

objExcel.Workbooks(1).Worksheets(1).Hyperlinks.Add objExcel.Selection, sLinkAddress
objExcel.Workbooks(1).SaveAs "C:\test.xlsx"
objExcel.Quit

set objExcel = nothing