open file validation

  • Thread starter Thread starter Alberto Ast
  • Start date Start date
A

Alberto Ast

how do I validate while trying to open a file with macros so it will not fail
if file does not exist?
 
Try the below..


Sub Macro()

Dim strFile As String
Dim wb As Workbook

strFile = "c:\1.xls"
If Dir(strFile, vbNormal) = "" Then
MsgBox strFile & vbLf & "File not found": Exit Sub
End If
Set wb = Workbooks.Open(strFile)
End Sub

If this post helps click Yes
 
Back
Top