Hi, Experts
I've a problems looking help since excel 2003 upgraded to 2010 the code doesn't work as subject.

code
Option Explicit
Sub SlidingClrText()
Dim lnk As Object, ie As Object, doc As Object, i As Long, r As Long, SCL As Long, TME As Long
Set ie = CreateObject("InternetExplorer.Application")
Sheet1.Select
With ie
.Visible = False
.navigate "https://sso.secure. xxxxxReport.do?ReportType=SCL&MLoc=/.show
Do Until .readyState = 4: DoEvents: Loop
Set doc = ie.document
.ExecWB 17, 0
.ExecWB 12, 0
.Quit
End With
Set ie = Nothing
'Sheet1.Select
Range("A5").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
End sub