Errorhandler VBA - help please

[dwilson38550m]

Hi,

I wonder if someone can help me with an error handler. I need to have an error handler which when the operation fails, points to cell O1 of tab called "Data Sheet" and saves the file to the location on cell O1 (eg C:\Testfile\Example.xls). Here is what I have so far - can anyone suggest anything? Thanks in advance.

    Sheets("Data Sheet").Select
    Range("O1").Select
    future5 = ActiveCell
continue:      ActiveWindow.ActivateNext
    Application.DisplayAlerts = False
    Rem ActiveWorkbook.Close SaveChanges:=FALSE
   
    ActiveWorkbook.SaveAs Filename:=future5, _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
   
       
    Application.DisplayAlerts = True

    ActiveWorkbook.Close SaveChanges:=False
    Sheets("data sheet").Select
    Range("A1").Select
   
   
Errorhandler:
    If Err.Number = 91 Then
    Err.Clear
    GoTo continue
    End If
    If Err.Number = 1004 Then
   
    End If
'
    Range("A6").Select
End Sub

 

[Dermot]

Try something like this instead to trap errors in saving the workbook

On Error Resume Next
ActiveWorkbook.SaveAs Filename:=future5
Select case Err.number 'trap certain error numbers
case 91
  ActiveWorkbook.SaveAs Filename:=sheets( "Data Sheet" ").range("O1")
  Exit Sub ' or whatever you want to do when there is an error
case 1004
  'do whatever you want here
End Select
On Error Goto 0
'carry on if no error