Error '424" Object Required on macro to send emails

Hi All below is a piece of code that I am trying to get to work, the idea is that it send emails based on some cells value. I am getting the error on the lines marked with ***, any help will be appreciated.

Thanks,



Sub emailtest3()
'
' emailtest3 Macro
'

'

Dim r As Range
Set r = Sheets("Pivot").Cells

For i = 20 To 200



Range("B1").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("SO Number").ClearAllFilters
*** ActiveSheet.PivotTables("PivotTable1").PivotFields("SO Number").CurrentPage = _
*** OO2018.Range("AS" & i).Value

ActiveWorkbook.EnvelopeVisible = True

With r.Parent.MailEnvelope.Item
.To = OO2018.Range("AX" & i).Value
.CC = ""
.BCC = ""
.Subject = OO2018.Range("AW" & i).Value
.Send
End With

Next i



End Sub

Thanks for your reply JKGWhiz, let me be a little more specific, below are some samples of what I want to accomplish:

OO2018 and Pivot are in the same work book


OO2018

2018-02-19 14_04_46-Book1 - Excel.png

Pivot

2018-02-19 14_04_03-Book1 - Excel.png


code for this example

Sub emailtest4()
'
' emailtest4 Macro
'

'


Dim r As Range
Set r = Sheets("pivot").Cells

For i = 2 To 14


Range("B1").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields("SO Number").ClearAllFilters
ActiveSheet.PivotTables("PivotTable2").PivotFields("SO Number").CurrentPage = _
Sheets("OO2018").Range("C" & i).Value

ActiveWorkbook.EnvelopeVisible = True

With r.Parent.MailEnvelope.Item
.To = OO2018.Range("h" & i).Value
.CC = ""
.BCC = ""
.Subject = OO2018.Range("G" & i).Value
.Send
End With

Next i




End Sub


now I am getting error 1004:
"Unable to get PivotTable property of the worksheet class.


this after change to the piece of code you gave me.


Thanks again.

Thank you JLGWhiz, I actually find out that I am getting the error if I run the Macro while staying in a sheet different that in the Pivot Sheet, other than that your code help me to fix the main issue

If there is anything that I can add to run the macro no matter what sheet I am in I will appreciate it, I tried doing

sheets("pivot").Range("B1").Select

and did not worked

Thanks again.

perfect it worked like a charm.

Thank you so much.