Opening a "Dummy"-file if file not exists

[blaksnm]

Hey guys
Todays problem:

I make a list of all files in a folder. I choose one of the files from this list as default. The path/filename is placed in
Sheet("FileOpen") Range("A1").
During my session I must have the oportunity to use a Dummy-file instead of one of the valid ones in the list. This dummy has to be placed in a different folder than the folder my list is made by, like:

.. " if file (tryed to open) not exist (in folder my list is made by) - then open a reele dummy placed somewhere else ..." - kind of action

How to I create this test in my macro?

 

[VoG]

Hi. Perhaps like this

Sub OpenFile()
Dim FName As String
FName = Sheets("FileOpen").Range("A1").Value
If Dir(FName) = "" Then
    Workbooks.Open Filename:="C:\Dummy.xls"
Else
    Workbooks.Open Filename:=FName
End If
End Sub

 

[blaksnm]

Thanks a lot!