なんとかｻｲﾄのﾘﾝｸをｴｸｾﾙｼｰﾄに書きだそうとしています｡ｲﾐﾃﾞｨｴｲﾄｳｨﾝﾄﾞｳにﾘﾝｸを書き出す事は出来ましたが､この結果をｴｸｾﾙｼｰﾄに出力する…

なんとかｻｲﾄのﾘﾝｸをｴｸｾﾙｼｰﾄに書きだそうとしています｡
ｲﾐﾃﾞｨｴｲﾄｳｨﾝﾄﾞｳにﾘﾝｸを書き出す事は出来ましたが､この結果をｴｸｾﾙｼｰﾄに出力することがどうしてもできません｡
どのようにしたらよいでしょうか｡ご教授頂けますと幸甚です｡

sub example()
Dim objIE As InternetExplorer
Set objIE = CreateObject("internetexplorer.application")
objIE.Visible = True
objIE.Navigate "hogehoge"
Do While objIE.Busy = True Or objIE.ReadyState < READYSTATE_COMPLETE
DoEvents
Loop
Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.Document
Dim el As IHTMLElement
For Each el In htmlDoc.Links
Debug.Print el.href
Next el
End Sub

Sub ｻｲﾄのﾘﾝｸ抽出()

 Dim i%, tURL$, objIE As Object

 tURL = "http://www.yahoo.co.jp/" 'hogehogeを指定
 
 Set objIE = CreateObject("InternetExplorer.Application") 'IEを起動
 With objIE
 .Visible = True
 .Navigate tURL
 End With

 Do While objIE.ReadyState <> 4 Or objIE.Busy = True '読み込み完了を待つ
 DoEvents
 Loop

 '新規ﾌﾞｯｸを追加してﾘﾝｸを抽出する

 Workbooks.Add '新規ﾌﾞｯｸを追加
 Range("A1") = "NO."
 Range("B1") = "ﾘﾝｸの表示"
 Range("C1") = "ﾘﾝｸURL"
 
 'LINKを書き出す
 If objIE.Document.Links.Length > 0 Then
 For i = 0 To objIE.Document.Links.Length - 1
 Cells(i + 2, "A") = i 'i番目
 Cells(i + 2, "B") = objIE.Document.Links(i).outerText 'ﾘﾝｸ表示
 Cells(i + 2, "C") = objIE.Document.Links(i).href 'ﾘﾝｸURL
 Next i
 
 End If
 
 Columns("A:B").AutoFit '列幅を自動調整
 Range("A2").Select
 ActiveWindow.FreezePanes = True 'ｳｨﾝﾄﾞｳ枠の固定を設定

 objIE.Quit 'IEを閉じる
 Set objIE = Nothing 'ﾒﾓﾘを解放
End Sub