gopal baheti
New Member
- Joined
- Dec 2, 2014
- Messages
- 34
Following Macro Works fine
Sub Macro1()
ActiveSheet.PivotTables("PivotTable1").PivotFields("STATUS").PivotFilters.Add2 _
Type:=xlValueEquals, DataField:=ActiveSheet.PivotTables("PivotTable1"). _
PivotFields("QTY ORDERED"), Value1:=90
End Sub
But when I replace Value1:= 90 with Value1:=Range("A1").Value
It gives run time error 5
Please Solve
Sub Macro1()
ActiveSheet.PivotTables("PivotTable1").PivotFields("STATUS").PivotFilters.Add2 _
Type:=xlValueEquals, DataField:=ActiveSheet.PivotTables("PivotTable1"). _
PivotFields("QTY ORDERED"), Value1:=90
End Sub
But when I replace Value1:= 90 with Value1:=Range("A1").Value
It gives run time error 5
Please Solve