開いているIEから特定のクラスをエクセルに書き込むVBA

Question

###前提・実現したいこと
開いているIEを取得し、その中から特定のクラス名のテキストをすべて抜出し、A列に記入していくプログラムを作成したい。

###発生している問題・エラーメッセージ
プログラムを実行してもエクセルに何も記入されない

###該当のソースコード

Sub 開いているIEから特定のクラスをすべて取得し､A列に書き込む()
    Dim ie As Object    
    Dim sh As Object    
    Dim win As Object   

    Set sh = CreateObject("Shell.Application")
    For Each win In sh.Windows

    If (TypeName(win.Document) = "HTMLDocument") Then

    Set ie = win
    Exit For
    End If
    Next
   
Dim htmlDoc As HTMLDocument
Set htmlDoc = ie.Document
   
  
Dim i As Long
   
  
For i = 0 To htmlDoc.getElementsByClassName("XXXXX").Length - 1

Cells(i + 1, 1) = i
Cells(i + 1, 2) = htmlDoc.getElementsByClassName("XXXXX")(i).innerText

Next i
    
End Sub

###試したこと
課題に対してアプローチしたことを記載してください
開いているIEを取得するところまでは確認済
ClassnameをTagnameに変える