ActiveX component can't create object: 'WScript.Shell'

[#1]

I am trying to open a webpage using a button  and macro .. But i am getting the error :- ActiveX component can't create object: 'WScript.Shell'

below is the code

Sub LaunchBroadcastMsg

Set objShell = CreateObject("WScript.Shell")

Set objIE = CreateObject("InternetExplorer.Application")

Set v = ActiveDocument.Variables("vBroadcastMsgURL")

strURL = v.GetContent.String

objIE.Height = 390

objIE.Width = 950

objIE.top="125"

objIE.left="15"

objIE.ToolBar = False

objIE.AddressBar = False

objIE.MenuBar = False

objIE.Visible = True

objIE.Navigate (strURL)

objShell.AppActivate objIE

End Sub

Can some one help me out whether this i have to change some IE setings