Pivot Table Field Toggle Fails on a Mac

[jwburritt]

Hello: I have the following code that toggles field selection on a pivot table. It works fine on windows, but fails on a Mac at the line indicated below. The Mac is updated with the latest version of excel. Any ideas? Thank you!

Failure line:

Set shp = ActiveSheet.Shapes(Application.Caller)

Full code:

Sub Toggle_Row_Field()
'Add/Remove the field to the pivot table.
'The field is determined by the button text that calls the macro.

Dim pt As PivotTable
Dim pf As PivotField
Dim sField As String
Dim shp As Shape

'Set variables
Set pt = ActiveSheet.PivotTables(1)
Set shp = ActiveSheet.Shapes(Application.Caller)
sField = shp.TextFrame.Characters.Text

'Toggle field
'If visible then hide it
If pt.PivotFields(sField).Orientation = xlRowField Then
pt.PivotFields(sField).Orientation = xlHidden
shp.Fill.ForeColor.Brightness = 0.5
shp.Line.ForeColor.Brightness = 0.5
Else 'Add to Rows area
pt.PivotFields(sField).Orientation = xlRowField
shp.Fill.ForeColor.Brightness = 0
shp.Line.ForeColor.Brightness = 0
End If

End Sub

 

[RoryA]

How are you calling the code?

 

[jwburritt]

Thanks for the reply Rory. Sorry, but I'm not sure if this is what you're looking for: the subroutine above is n excel macro in its entirety. The user accesses the code via button.

 

[RoryA]

What's the error message?

 

[jwburritt]

It doesn't give an error. The macro just stops and says debug.

 

[RoryA]

That's all it says on the dialog?

 

[jwburritt]

Thanks again, Rory. You're right -- it probably did say something in the dialog. But I can't duplicate the error because I don't have a Mac. Only my boss does. (Most other people use windows.) And I've already bugged her enough about this macro problem....Anyway, you've been very helpful. Thank you!