Pivot Table Problem

[benj]

Hi,
I have created a pivot table who holds ard 1000 rows of data, and i hv grouped them into ard 10 different divisions. so if i were to choose Div 1, then it will only reflect those rows from division 1.

However what i require is that when i run the macro that creates this pivot table, it will automatically create 10 separate workbooks, 1 for each division, holding only the relevant data for that division? how do I write a vba code for this?

aft this is achieved, how can i write save each workbook with a specific filename and adding a timestamp to the filename?

pls advise.

[benj]

I'm trying to do

Sub Choose()

If ActiveSheet.PivotTables("PivotSheet").PivotFields("Division") = "ABC" Then
MsgBox "Value is 1"
End If

End Sub

But i get a error 1004. i believe my syntax of it is wrong. can anyone enlighten me on this?