Thank you very much that worked
Set info = acssrv.reports.reports("Historical\Agent\Login/Logout (Skill)")
If acssrv.reports.CreateReport(info, acsrep) Then
acsrep.TimeZone = "US/Central"
acsrep.setproperty "Skill", 83
acsrep.setproperty "Date", begindate
If acsrep.ExportData(sExportName, 9, 0, False, True, True) Then
Sheets("Agent Login").Activate
Sheets("Agent Login").Cells(blankrow2, 1).Select
ActiveSheet.Paste
End If
acsrep.Quit
Set acsrep = Nothing
End If
You have just made my day!!