Sub Oem_Value()

    Dim post As Object
 Dim selectItems As Variant

    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "https://zunamiprotocol.medium.com/followers"
      
        While .readyState < 4: DoEvents: Wend

        For Each post In .Document.getElementsByName("eh ei bz ca cb cc cd ce cf bl ej ek cg el em")
            r = r + 1: Cells(r, 1) = post.innerText
        Next post
        .Quit
    End With

End Sub