Hello,

I am having a problem writing the VBA to get all text from div class attachment_9016 on crossfitcityline.com/wod

I would like the text to be entered into cell A2 on the active sheet.

I am using this but it failys on getelementbyclassname because I do not understand how that command works.

Sub Cityline()
Dim IE As Object
Set IE = CreateObject("Internetexplorer.application")
IE.Visible = True
IE.navigate "http://crossfitcityline.com/wod"
Do While IE.busy
DoEvents
Loop
Do
DoEvents
Dim Doc As Object
Set Doc = IE.Document
Dim workout As String
workout = Doc.getElementsByClassName("attachment_9016")(0).innertext
Range("A2") = workout
Loop
End Sub