This should do it:

' This variable tells which position the field is in
' First position is 0
intFieldPos = 0
ActiveSheet.PivotTables("PivotTable1").PivotFields (intFieldPos).Orientat
ion = _
xlHidden
With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Currency")
.Orientation = xlRowField
.Position = intFieldPos
End With

Let me know if this doesn't work.

Mark

---
Mark Bigelow
mjbigelow at hotmail dot com
http://hm.imperialoiltx.com

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!