I'm trying to retrieve data from an excel spreadsheet into Access through VBA. The problem I'm having is that the cell in Excel has a formula in it. When I use the Getobject method, I retrieve the formula not the value in the cell.
Here's the code I'm using any help would be appreciated.

Sub GetExcelData()
Dim ExcelApp As Object
Dim db As Database
Dim i As Integer
Dim strCell, strName, strAddress As String

On Error Resume Next
Set ExcelApp = GetObject(, "Excel.Application")

If Err.Number <> 0 Then
Set ExcelApp = CreateObject("Excel.Application")

End If

ExcelApp.Workbooks.Open ("C:\Documents and Settings\My Documents\Susan Purdy.xls")

With ExcelApp
' Make Excel invisible through the Application object
.Application.Visible = False

'Insert Excel Data into variable
strName = .Worksheets(1).Range("D4").Value
strAddress = .Worksheets(1).Range("D5").Value

' ******************* I'll add code here to put the data into an access table ******************

' Close Excel with the Quit method on the Application object
' Release the object variable
End With

End Sub