Since ActiveCell returns an object, assignment must be made with Set:

Set Acell = ActiveCell

It would be a good idea to first declare Acell

Dim Acell as Object '-----or
Dim Acell as Range

Also, PivotItems probably needs Acell.Value (what is the 37?)

HTH
Kostis Vezerides