hi.
what problems are you having? error messages?
i see 1 potential problem with Fname. team? shouldn't that be team.xls

regards
FSt1

"Heera Chavan" wrote:

Hi

Below mentioned is my macro.
I want to see an access file is available on a path or not.

Sub team()

Dim mypath As String
Dim Fpath As String
Dim Fname As String

Fpath = ThisWorkbook.Sheets("Team3").Range("A1").Value ' the value is
"C:\Documents and Settings"
Fname = ThisWorkbook.Sheets("Team3").Range("A2").Value ' the value is "Team"

mypath = Fpath & "\" & Fname

If Dir(mypath) = "" Then
MsgBox "Network is disconnect or the required file is not available on
path.", vbInformation
Exit Sub
End If

end sub