vba - SEND MAIL

I have code to send E-Mail to addresses and it used to work but I have since had to use this code to send another worksheet from the same work book. And now I'm having problems..It always gives an error at sh.copy. Does anyone have any ideas as to why it would be doing this now.

Sub mail()
    ' Hide Sheets
    Sheets("AbbotPoint").Visible = False
    Sheets("HayPoint").Visible = False
   
    Call Send_Mail

    Sheets("HayPoint").Visible = True
    Sheets("AbbotPoint").Visible = True
    Sheets("DBCT").Visible = True

End Sub

Sub Send_Mail()
    Dim sh As Worksheet
    Dim wb As Workbook
    Dim strdate As String
    Dim MyArrIndex As Long
    Dim E_Mail_Count As Long
    Dim cell As Range
    Dim MyArr() As String
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        If sh.Range("N3").Value Like "*@*" Then
            strdate = Format(Now, "dd-mm-yy h-mm-ss")
 
            E_Mail_Count = sh.Columns("N").Cells.SpecialCells(xlCellTypeConstants).Count
            ReDim MyArr(1 To E_Mail_Count)
            MyArrIndex = 1
            For Each cell In sh.Columns("N").Cells.SpecialCells(xlCellTypeConstants)
                If cell Like "*@*" Then
                    MyArr(MyArrIndex) = cell.Value
                    MyArrIndex = MyArrIndex + 1
                End If
            Next
            ReDim Preserve MyArr(1 To MyArrIndex)
 
            sh.Copy
            Set wb = ActiveWorkbook
            With wb
                .SaveAs "Sheet " & sh.Name & " of " _
                      & ThisWorkbook.Name & " " & strdate & ".xls"
                .SendMail MyArr, _
                          "DBCT Fax - Daily Schedule"
                .ChangeFileAccess xlReadOnly
                Kill .FullName
                .Close False
            End With
        End If
    Next sh
    Application.ScreenUpdating = True

End Sub