clear option buttons **MACRO TWEAK**

  • Thread starter Thread starter Dan
  • Start date Start date
D

Dan

Hello, I have the current macro assigned to clear the contents of
unlocked cells. What I would like to do is also include the clearing
of 2 Option Buttons as well.

Thanks for your assistance!

Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If cell.Locked = False Then cell.MergeArea.ClearContents
Next
End Sub
 
activesheet.optionButtons("Option Button 1").value=0

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
activesheet.optionButtons("Option Button 1").value=0

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)








- Show quoted text -
Click to expand...

Thanks. Where would I encorporate this command into the macro?
 
Depends when you want it cleared, but I would guess after the Next
statement.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
Depends when you want it cleared, but I would guess after the Next
statement.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)







- Show quoted text -
Click to expand...

Cool. Thanks!
 
Back
Top