No, there is no other Dir within the other code not shown (that was something
I did think of after I posted originally).

I have found a statement I recently added to my code that is causing the Dir
function to be reset, though I'm not sure why.

The function that causes this is from Chip Pearson's website
(http://www.cpearson.com/Excel/docprop.aspx) -

Function GetProperty(PropertyName As String, PropertySet As
PropertyLocation, _
Optional WhatWorkbook As Workbook) As Variant
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
' GetProperty
' This procedure returns the value of a DocumentProperty named in
' PropertyName. It will examine BuiltinDocumentProperties,
' or CustomDocumentProperties, or both.

This function works as intended, and the resetting of the value of Dir is
the only dowside for my particular purpose.



"Rick Rothstein" wrote:

I cannot duplicate your problem... the code you posted works fine. Are you
by any chance using another Dir command (with a different argument) in the
section you designated "additional logic here"?

--
Rick (MVP - Excel)


"BigJimmer" wrote in message
...
I have the following code...

Dim fName As String
dim DestPath as string

DestPath = ThisWorkbook.Path & "\"
fName = Dir(DestPath & "*.*")
Do Until fName = vbNullString

'additional logic here

fName = Dir
Loop

I get error 5 Invalid procedure call or argument on the line fname = Dir
and
don't understand why.

I am using Excel 2000.

Thanks!

.