Run-time error '13': Type Mismatch when hiding rows via VBA

[Sky188]

I'm building a custom price list for each state, but rather than always have 50+ worksheets showing I only want those showing that are going to be used. To filter the visible worksheets, I'm using checkboxes on an intro page to change values in column A, then running a VBA macro to hide/unhide worksheet names based on those column A values. This works great for the most part, but I'm running into a run-time error '13' anytime I try to unhide two worksheets that are next to one another. Each can hide/unhide individually, or with any other worksheet that isn't immediately next to it. I initially though separating the column A values might fix it, but it didn't.

Any ideas on why this error would be happening or how to fix it?

Sub Arizona()
Dim HideSheet As Boolean
HideSheet = Range("A8")

If HideSheet Then
    Sheets("Arizona").Visible = True
    Else
    Sheets("Arizona").Visible = False
    End If
End Sub

Sub Arkansas()
Dim HideSheet As Boolean
HideSheet = Range("A10")

If HideSheet Then
    Sheets("Arkansas").Visible = True
    Else
    Sheets("Arkansas").Visible = False
    End If
End Sub

 

[6StringJazzer]

Which line of code causes the error? When the error occurs what are the values in A8 and A10? Maybe you are trying to assign a non-Boolean value to HideSheet.

 

[nguyendang]

Make sure the values in A8 and A10 are of type Boolean.

 

[Sky188]

Which line of code causes the error? When the error occurs what are the values in A8 and A10? Maybe you are trying to assign a non-Boolean value to HideSheet.

The values is column A are true/false based on the state checkboxes being checked or not. When the error occurs, the values are true. It works great if non consecutive cells are true and only errors when two consecutive cells in column A are true.

 

[Sky188]

Make sure the values in A8 and A10 are of type Boolean.

They are.

 

[RoryA]

You should specify a worksheet for the ranges.

 

[Sky188]

You should specify a worksheet for the ranges.

I’ll give that a try in a few hours and report back. Thanks for your suggestion.

 

[Sky188]

I’ll give that a try in a few hours and report back. Thanks for your suggestion.

Adding the worksheet reference worked perfectly. Gotta love it when it’s an easy fix! Thanks for your help.