Sub Lenoxtest() 
    Dim oForm As Object 
    Dim SKU As String 
    Dim URL As String 
    Dim objIE As Object 
    Dim eRow As Long 
    Dim ele As Object 
    Set sht = Sheets("Sheet1") 
    RowCount = 1 
    sht.Range("A" & RowCount) = "content" 
    sht.Range("B" & RowCount) = "description" 
    Set objIE = CreateObject("InternetExplorer.Application") 
    SKU = InputBox(" Enter Sku #. eg, 845123") 
    With objIE 
        .Visible = True 
        .navigate "http://www.Lenox.com" 
        While objIE.Busy And objIE.ReadyState <> 4: DoEvents: Wend 
        Set objIE = .document.body 
        Set oForm = objIE.getElementsbyTagname("Form") 
        Set oForm = oForm(0) 
        Set oInput = oForm.document.getElementByID("keywords") 
         
        Set oBtn = oForm.document.getElementsbyTagname("input") 
        Set oBtn = oBtn(1) 
         
        oInput.Value = SKU 
        oBtn.Click 
        oForm.submit 
        For Each ele In .document.all 
            Select Case ele.classname 
            Case "title" 
                RowCount = RowCount + 1 
            Case "title" 
                sht.Range("A" & RowCount) = ele.innertext 
            End Select 
        Next ele 
    End With 
    Set objIE = Nothing 
End Sub