Sub test()
Dim IEApp As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Navigate ("http://www.amazon.in")
Application.Wait Now + TimeValue("00:00:03")
IEApp.Visible = True
Set Link = IEApp.Document.getElementById("nav-shop-all-button")
Link.Click
End Sub
Sub test2()
Dim IEApp As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Navigate ("http://www.amazon.in/gp/site-directory/ref=nav_sad")
IEApp.Visible = True
End Sub