Just one more request, insted of closing IE in the end is it possible to open webpage in new TAB.

My code goes here..

Code:
Sub go()
Dim IE As Object
Dim rngRange As Range
Dim rngCell* As Range

Set IE = CreateObject("InternetExplorer.Application")

Set rngRange = Application.InputBox(prompt:="Please select a range with your Mouse.", _
               Title:="SPECIFY RANGE", Type:=8)

For Each rngCell In rngRange

IE.Navigate rngCell.Value 
Do Until IE.LocationURL = ""
    DoEvents
Loop

'Do Until IE.ReadyState = 4
'    DoEvents
'Loop

IE.Visible = True
IE.document.forms("Form1").elements("text").Value = ActiveSheet.Range("B2").Value '"Message Here"
IE.document.forms("Form1").elements("submit").Click

IE.Quit

Next rngCell

End Sub
Thansk once again.