I have 2 procedures in a module. One imports external data (.csv) to a named
sheet (which works) then calls another procedure wthich imports a .dat file.
I'm getting the error above during the second import. I have checked using
debug.print and the file path is correct. The last line of code (.Refresh...)
is causing my problem. Here's my code. Any ideas?

Thanks
LeAnn

CODE:
Sub ImportData(strFile As String)
'

Dim strDir As String
strDir = "my network path" & strFile

With Worksheets("Result")
.Select
.Range("a1").Select
End With

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & strDir _
, Destination:=Range("Q22"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub