Checkbox VBA code works on PC but not on Mac

[Monsignor]

This code is working fine on my PC. On my Mac I get an error saying that the activity is not available for the object, and this portion is highlighted yellow:

 If wsUF.Shapes("Check Box 1").ControlFormat.Value = xlOn

Here is the full routine. In summary:
On "User Form" there are 10 options that a person might be interested in. On "Report" I want to unhide the rows connected to the options chosen on "User Form."

Sub makereport()'
' unhiderowonreport Macro
'
' Keyboard Shortcut: Ctrl+Shift+U


Dim wsUF As Worksheet
Set wsUF = Worksheets("User Form")


'
Sheets("Report").Select


    If wsUF.Shapes("Check Box 1").ControlFormat.Value = xlOn Then Sheets("Report").Select Rows("15").Select
    Selection.EntireRow.Hidden = False
        
    If wsUF.Shapes("Check Box 2").ControlFormat.Value = xlOn Then Rows("16").Select
        Selection.EntireRow.Hidden = False
        
    If wsUF.Shapes("Check Box 3").ControlFormat.Value = xlOn Then Rows("20").Select
        Selection.EntireRow.Hidden = False
        
    If wsUF.Shapes("Check Box 4").ControlFormat.Value = xlOn Then Rows("19").Select
        Selection.EntireRow.Hidden = False
    
    If wsUF.Shapes("Check Box 5").ControlFormat.Value = xlOn Then Rows("18").Select
        Selection.EntireRow.Hidden = False
        
    If wsUF.Shapes("Check Box 6").ControlFormat.Value = xlOn Then Rows("17").Select
        Selection.EntireRow.Hidden = False
    
     If wsUF.Shapes("Check Box 7").ControlFormat.Value = xlOn Then Rows("21").Select
        Selection.EntireRow.Hidden = False
    If wsUF.Shapes("Check Box 12").ControlFormat.Value = xlOn Then Rows("22").Select
        Selection.EntireRow.Hidden = False
    If wsUF.Shapes("Check Box 11").ControlFormat.Value = xlOn Then Rows("23").Select
        Selection.EntireRow.Hidden = False
    If wsUF.Shapes("Check Box 13").ControlFormat.Value = xlOn Then Rows("24").Select
        Selection.EntireRow.Hidden = False
    
    
    Range("C1").Select
    
    MsgBox ("Report Complete")




End Sub

 

[RoryA]

The syntax seems fine to me (works on my Mac). Can you provide a sample file somewhere (skydrive, dropbox etc) for testing?

 

[Monsignor]

Sure. Here is a link in my skydrive: http://sdrv.ms/1b0r4Sp

 

[RoryA]

That is odd-seems you need to change the declaration to:

Dim wsUF As Object

for some reason!

 

[Monsignor]

This is what I need to do? Dim wsUF as Object?

Will that work on both the PC and Mac?

SPOOKY!

 

[RoryA]

Yes, it should work on both. No idea why it's necessary on the Mac though - maybe there's a difference in the way they built the compiler.

 

[Monsignor]

Well, whatever the difference is, it's working. How did you think to try Dim As Object?

 

[RoryA]

Based on the code test I had run successfully earlier, I substituted the variable in your code with a direct reference to worksheets("user form") and that worked, so I tested changing the variable declaration.