Sub M_snb()
    With New InternetExplorer
        .Navigate "http://en.wikipedia.org/wiki/Rihanna"
         
        Do
          DoEvents
        Loop Until .ReadyState = 4
             
        For Each it In .Document.getElementsByTagName("TD")
          If it.className = "persondata-label" Then c00 = c00 & "|" & it.innerText & "_" & it.className
        Next
    End With
    
    sn = Split(Mid(c00, 2), "|")
    Cells(1).Resize(UBound(sn) + 1) = Application.Transpose(sn)
End Sub