IE Automation Using VBA Macros - Error

[kiran527]

Hi I am trying to send SMS to mobile using some website.

i have automated the process to send sms for 'n' number of users

But unfortunately i am seeing an error, not sure how to get rid of this.

For Each cell In Sheet1.Range("A2:A2000").Value   
On Error GoTo What
If cell = "" Then
Exit For
End If
appIE.document.getelementbyid("FreeSms_mobile").Value = cell
appIE.document.getelementbyid("FreeSms_post_message").Value = "HI have automated SMS using VBA Macros, HURRAY!!!!!!-- Kiran"
appIE.document.getelementbyid("sub_btn_nm").Click
Do While appIE.busy: DoEvents: Loop
appIE.document.getelementbyid("Back").Click   ''---- Error occurs here saying "Object Variable or with block variable not set."
Do While appIE.busy: DoEvents: Loop
Next

What:
MsgBox Err.Description

Pls help me to get out of this....

Thanks in Advance