Sub GetData()

Dim RowNumber As Integer
Dim ColNumber As Integer

For RowNumber = 1 To 100
For ColNumber = 1 To 104
    With Cells(RowNumber, ColNumber)
        .Formula = "='C:Documents and SettingsadminDesktop[data.xls]Sheet1'!" & Cells(RowNumber, ColNumber).Address
        '.Formula = "='C:Documents and SettingsadminDesktop[data1.csv]Sheet1'!" & Cells(RowNumber, ColNumber).Address
        .Value = .Value
    End With
Next
Next

End Sub

Sub WhyNotOpen()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Wb1 = ThisWorkbook
Set Wb2 = Workbooks.Open("C:tempdata.csv", False, True)
Wb1.Sheets(1).Range("A1:CV104").Value = Wb2.Sheets(1).Range("A1:CV104").Value
Wb2.Close False
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Sub GetData()

Dim wb as workbook

Dim RowNumber As Integer
Dim ColNumber As Integer

set wb = application.workbooks.open("C:Documents and SettingsadminDesktopdata1.csv")

For RowNumber = 1 To 100
 For ColNumber = 1 To 104

    With Cells(RowNumber, ColNumber)
        .Formula = "='[data1.csv]Sheet1'!" & Cells(RowNumber, ColNumber).Address
        .Value = .Value
    End With

 Next
Next

End Sub

.Formula = "='" &"[" & wb.Name & "]" & wb.Sheets(1).Name &"'!" & Cells(RowNumber, ColNumber).Address