Runtime Error 13 on Mac but not PC
<p>Thank you for anyone that helps me with this.</p>

<p>I have written some VBA on a PC, but my copywriters use a mac and the Macros do not work. I get a run time error 13 on the following code:  </p>

<pre><code>If Range("Home_EPIC_Flag_Count").Value = 0 Then 
</code></pre>

<p>is what gets highlighted yellow when I debug</p>

<pre><code>Private Sub Worksheet_Calculate()

 ' EPIC flag conditional testing macros

 If Range("Home_EPIC_Flag_Count").Value = 0 Then
      Me.Shapes("Home_EPIC_Flag").Visible = False
 Else
        Me.Shapes("Home_EPIC_Flag").Visible = True
 End If

 If Range("Rooms_EPIC_Flag_Count").Value = 0 Then
      Me.Shapes("Rooms_EPIC_Flag").Visible = False
 Else
        Me.Shapes("Rooms_EPIC_Flag").Visible = True
 End If

 If Range("Dining_EPIC_Flag_Count").Value = 0 Then
      Me.Shapes("Dining_EPIC_Flag").Visible = False
 Else
        Me.Shapes("Dining_EPIC_Flag").Visible = True
 End If

 If Range("Spa_EPIC_Flag_Count").Value = 0 Then
      Me.Shapes("Spa_EPIC_Flag").Visible = False
 Else
        Me.Shapes("Spa_EPIC_Flag").Visible = True
 End If

 If Range("Golf_EPIC_Flag_Count").Value = 0 Then
      Me.Shapes("Golf_EPIC_Flag").Visible = False
 Else
        Me.Shapes("Golf_EPIC_Flag").Visible = True
 End If

 If Range("LocalArea_EPIC_Flag_Count").Value = 0 Then
      Me.Shapes("LocalArea_EPIC_Flag").Visible = False
 Else
        Me.Shapes("LocalArea_EPIC_Flag").Visible = True
 End If

 If Range("Business_EPIC_Flag_Count").Value = 0 Then
      Me.Shapes("Business_EPIC_Flag").Visible = False
 Else
        Me.Shapes("Business_EPIC_Flag").Visible = True
 End If
</code></pre>