just replace
"NOV"
with
UCase(WorksheetFunction.Text(Now, "mmm"))
--
Gary's Student


"Newbee" wrote:

I have a macro set to run every day. In the pivot table it chooses Nov. How
can I get this to choose the current month so that I don't have to change it
every month. Also can make the change to current month on the 5th business
day to the current month?

ActiveSheet.PivotTables("PivotTable2").AddFields ColumnFields:= _
"MKT_REGION_NAME "
With ActiveSheet.PivotTables("PivotTable2").PivotFields ("NOV")
.Orientation = xlDataField
.Caption = "Sum of NOV"
.Function = xlSum