Dim OutApp As Object
   Dim OutMail As Object
   Dim cell As Range
         
   Application.ScreenUpdating = False
   Set OutApp = CreateObject("Outlook.Application") --------------------------на этом шаге выдает ошибку
   OutApp.Session.Logo
   On Error GoTo cleanup
   Set OutMail = OutApp.CreateItem(0)
   On Error Resume Next
         
   With OutMail
       .To = "myemail@address"       
       .CC = ""
       .Subject = "test email"
       .Body = "Test is successful"
       '.Attachments.Add Range("A4").Value
     
       .Display
   End With
    
   On Error GoTo 0
   Set OutMail = Nothing
    
cleanup:
   Set OutApp = Nothing
   Application.ScreenUpdating = True

 Workbooks.Open Filename:=sPath, UpdateLinks:=False

Sub FilesOpen()
    Application.AskToUpdateLinks = False
    Dim MyName As String
    Dim MyPath As String
    Dim sPath As String
 MyPath = "C:\Users\Ivanova\Desktop\Folder\"
        MyName = Dir(MyPath & "*.xls") 
         Do While MyName <> ""
            sPath = MyPath + MyName
             Workbooks.Open Filename:=sPath, UpdateLinks:=False
          
             With Workbooks.Open(sPath)
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets
     s.Copy
        Columns.Hidden = False
        Rows.Hidden = False
                 ActiveWorkbook.SaveAs "C:\Users\Ivanova\Desktop\Folder\new folder\" & s.Name & ".xlsx"
        ActiveWorkbook.Close
           Next
    ActiveWorkbook.Save
    ActiveWorkbook.Close
            End With
                        MyName = Dir
         Loop
                  MsgBox "Tabs are saved"
End Sub