Function ValidPath() As Boolean Dim fPath As String fPath = "c:\" If Dir(fPath, vbDirectory) = "" Or fPath = "" Then ValidPath = False Else ValidPath = True End If End Function