Dir( ) Problem

D

Donald Lloyd

Hi,

In the Worksheet.Change event I have the following code snippet.

Fname = Range("G12") ' Filename
Fname = Fname & ".xls"
If Dir(Fname) <> "" Then
MsgBox Fname & " - There is already a file with this name. Please try
again", , "File Exists"
Target = ""
End If

This worked fine for a while but for some reason doesn't work anymore.
Application. EnableEvents is set to True and I've tried stepping through to
no avail.

Any ideas ?

regards,
Don
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Update Directory Path in Code 4
getsaveasfilename loop... <> false and not already exists 2
Open_Files_In_A_Directory 2
Application.Filesearch FileCopy 2
Open File Macro 3
Open files from folder by matching name 3
Open files by looking at list names in column A 2
fname = Dir() returns and 'invalid procedure call or argument' 4

Top