VBA error 1004 выберите метод поля класса рабочего листа

У меня есть код, который отправляет электронные письма контактам после проверки правильности адреса электронной почты в столбце 2, и если значение в столбце 6 больше 0.

Если я нажму кнопку, чтобы сохранить книгу и попытаться запустить макрос, он сработает и ошибки с ошибкой: ошибка 1004 выберите метод поля класса рабочего листа . После того, как я закрою ошибку и перемещаюсь по листам, выберите некоторые случайные ячейки, а затем попробуйте запустить макрос, который работает нормально, и электронные письма будут отправлены. Это линия, которая выделяет отладчик: .Parent.Select

Private Sub SendUpdates() Dim aEmailList As Variant Dim indx As Long Dim rng As Range Dim ws As Worksheet Dim lRow As Long Dim wsORPpivot As Worksheet Dim wsDSPContacts As Worksheet With ThisWorkbook Set wsORPpivot = .Worksheets(cShORPpivot) Set wsDSPContacts = .Worksheets(cShDSPContacts) End With Set ws = ActiveSheet 'On Error GoTo ErrHandler With Application .ScreenUpdating = False .EnableEvents = False End With With wsDSPContacts aEmailList = .Cells(1).CurrentRegion.Value End With If Not IsArray(aEmailList) Then Exit Sub For indx = 2 To UBound(aEmailList) If ValidEmail(CStr(aEmailList(indx, 2))) And aEmailList(indx, 6) > 0 Then wsORPpivot.PivotTables("ORP").PivotFields("DSP").CurrentPage = aEmailList(indx, 1) wsORPpivot.Cells.EntireColumn.AutoFit lRow = wsORPpivot.Cells(Rows.CountLarge, "A").End(xlUp).Row Set rng = wsORPpivot.Range("A1:J" & lRow) ActiveWorkbook.EnvelopeVisible = True With rng .Parent.Select With .Parent.MailEnvelope '.Introduction = aEmailList(indx, 4) With .Item .To = aEmailList(indx, 2) '.CC = aEmailList(indx, 3) .Subject = aEmailList(indx, 4) '.Intro = aEmailList(indx, 5) .Send End With End With End With With wsORPpivot ' Unselect the range, clear pivot filters, fit columns .Cells(1).Select .PivotTables("ORP").PivotFields("DSP").ClearAllFilters .Cells.EntireColumn.AutoFit End With End If Next ActiveWorkbook.EnvelopeVisible = False ws.Select ErrHandler: ActiveWorkbook.EnvelopeVisible = False With Application .ScreenUpdating = True .EnableEvents = True End With Set ws = Nothing Set rng = Nothing If Err.Number <> 0 Then MsgBox "Error Number: " & Err.Number & vbCrLf & "Description: " & Err.Description, vbCritical, cAppName Err.Clear End If End Sub 

Давайте будем гением компьютера.