Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Error trap

Public Sub ErrorTrap2()   Dim MyFile As String, Message As String   Dim Answer As String   On Error GoTo errorTrap   Workbooks.Add   MyFile = "C:\Data.xls"   Kill MyFile   ActiveWorkbook.SaveAs FileName:=MyFile   ActiveWorkbook.Close   Exit Sub errorTrap:   Debug.Print "Error No: = " & Err.Number   Debug.Print Err.Description   Debug.Print "File does not exist"   Resume Next End Sub