Roy, i did some homework.. i got something but its not quite working... ((
Sub ee()
Range("B11").Select
ChDir "C:\"
Workbooks.Open Filename:= _
"C:\ReadFrom.csv"
Columns("A:A").EntireColumn.AutoFit
Range("A1").Select
ActiveCell.FormulaR1C1 = "Time,"""",""Two"",""Tree"",""Four"""
Windows("PA.xls").Activate
Range("B11").Select
ActiveSheet.Paste
Windows("ReadFrom.csv").Activate
Range("A2").Select
ActiveCell.FormulaR1C1 = "08/27/2010 12:45:42,,56,33,21"
Windows("PA.xls").Activate
Range("C11").Select
ActiveSheet.Paste
Windows("ReadFrom.csv").Activate
ActiveWorkbook.Close
Range("B7").Select
End Sub
Bookmarks