[vba]

Dim sUser As String

sUser = Environ("UserName")
Workbooks.Open Filename:= _
"http://xxxxxxxxxx.xxxxxx.com/xxxxxx/xxxxxx/xxxxxx/" & sUser & ".REPORTNAME.CSV"
ActiveWindow.Visible = True
Application.DisplayAlerts = False
'=============
Windows(sUser & ".REPORTNAME.CSV").Activate
Cells.Select
Selection.Copy
Windows("ORIGINALREPORTNAME.xls").Activate
Sheets("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste
Windows(sUser & ".REPORTNAME.CSV").Close
[/vba]