Hiding/Unhiding Rows in a worksheet based on the value of a checkbox.

R

R Tanner

Hi,

I am using the following code to try and hide/unhide a row in a
worksheet. It hides the row just fine, but it won't unhide it. What
am I doing wrong??

If ActiveSheet.OLEObjects(1).Object.Value = True Then
ActiveSheet.Range("EURUSD").EntireRow.Hidden = False
Else
ActiveSheet.Range("EURUSD").EntireRow.Hidden = True
End If

I tried this code before and it didn't work either.

sheets("Data Layout").Range("EURUSD").EntireRow.Hidden= _
Not sheets("Data Layout").OleObjects(1).object.value

Much simpler, I only wish I could get it to work...Any ideas?

Thanks
 
S

StumpedAgain

I would recommend event programming like the following:

Private Sub CheckBox1_Click()

If ActiveSheet.CheckBox1.Value = True Then
ActiveSheet.Range("EURUSD").EntireRow.Hidden = False
Else
ActiveSheet.Range("EURUSD").EntireRow.Hidden = True
End If

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top