Automatizacija internet explorera iz excela

Pozdrav!
Pokusavam da automatizujem iz excela skracivanje linkova na sajtovima adf.ly i linksert, i krenulo je ok al sam zapeo kod poslednjeg koraka.
Kod adf.ly mi excel otvori stranicu sajta na internet exploreru, ispise proizvoljni link u polje za skracivanje na sajtu, stisne SHRINK, i tu stane. Ne znam kako da ga nateram da stisne COPY i pastuje novi generisani link u excel.
A kod linkserta sve isto, osim sto ne mogu da ga nateram ni da stisne SHRINK. Treba mi pomoc :)

Evo kodova:

Sub adfly()

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
URL = "http://adf.ly/"
IE.navigate (URL)

Do
DoEvents
Loop Until IE.READYSTATE = 4

IE.Document.All("shrink_link").Value = "http://www.google.com"

IE.Document.getelementbyid("shrink_submit").Click

Do
DoEvents
Loop Until IE.READYSTATE = 4

IE.Document.getelementbyid("shrink_copy").Click

End Sub




Sub linksert()

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
URL = "http://linksert.com/"
ie.Navigate (URL)

Do
DoEvents
Loop Until ie.ReadyState = 4

ie.Document.All("url").Value = "http://www.google.com"


End Sub[/code]

Pa gde ste ljudi jel moguce da niko ne zna? :/