Sub auto_open()
addhtmlobj (CStr(Sheet1.Range("A1")))
End Sub
Sub addhtmlobj(newstr As String)
Dim fs, a, fn
fn = ThisWorkbook.Path & "\x.htm"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(fn)
a.WriteLine ("<body scroll=""no"" topmargin=""0"" leftmargin=""0""><marquee>" & _
newstr & "</marquee></body>")
a.Close
Sheet1.WebBrowser1.Navigate ThisWorkbook.Path & "\x.htm"
End Sub
