Hiding command buttons

[FrEaK_aCcIdEnT]

I am wanting to hide a command button if a condition is met. The below is giving me a type mismatch runtime error.

If Worksheets("Final").Range("H6:H97").Value = "" Then

WorkSheets("General").Shapes.Range(Array("Button 2")).Hidden
WorkSheets("General").Shapes.Range(Array("Button 3")).Hidden
End If

What am I doing wrong?

 

[FrEaK_aCcIdEnT]

Update:

I have fiddled with it more and it has to do with the range.

Here is where I am at...

If Worksheets("Final").Range[COLOR=#ff0000][B]("H97")[/B][/COLOR].Value = "" Then

Worksheets("General").Shapes.Range(Array("Button 2")).Visible = False
Worksheets("General").Shapes.Range(Array("Button 3")).Visible = False

Else

Worksheets("General").Shapes.Range(Array("Button 2")).Visible = True
Worksheets("General").Shapes.Range(Array("Button 3")).Visible = True

End If

I need range H6:H97 to all have something in them to allow the buttons to be visible.

 

[FrEaK_aCcIdEnT]

I have switched it around so it works as intended on one cell, but I still need all cells in the range of H6:H97 to contain something instead of being blank for the buttons to show on another sheet.

Thanks for any and all help. Pardon my train of thought that you had to read through to get to this point...

If Worksheets("Final").Range("[B][COLOR=#ff0000]H97[/COLOR][/B]").Value <> "" Then

Worksheets("General").Shapes.Range(Array("Button 2")).Visible = True
Worksheets("General").Shapes.Range(Array("Button 3")).Visible = True

Else

Worksheets("General").Shapes.Range(Array("Button 2")).Visible = False
Worksheets("General").Shapes.Range(Array("Button 3")).Visible = False

End If

 

[RoryA]

Would H6:H97 actually be empty or do they contain formulas that return "" for example?

 

[FrEaK_aCcIdEnT]

They have a data validation dropdown that has Heavy, Medium, Light, N/A. I want all of the cells in that range to have something selected before the buttons appear on the other sheet.

They are also set as "ignore blank" on the data validation and the template is saved with the cells being blank to start off.

No formulas that return a "" value.

Thanks!

 

[RoryA]

In that case, try this:

Worksheets("General").Shapes.Range(Array("Button 2", "Button 3")).Visible = (Application.CountBlank(Worksheets("Final").Range("H6:H97")) = 0)

 

[FrEaK_aCcIdEnT]

RoryA,
Thanks a lot for your help!! That worked as expected. Have to remember the .countblank ability.