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)



"Dan" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>

On Feb 16, 3:34 pm, "Bob Phillips" <bob....@xxxx.com> wrote:
> activesheet.optionButtons("Option Button 1").value=0
>
> --
> ---
> HTH
>
> Bob
>
> (there's no email, no snail mail, but somewhere should be gmail in my addy)
>
> "Dan" <dan.ga...@gmail.com> wrote in message
>
> news:(E-Mail Removed)...
>
>
>
> > 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- Hide quoted text -
>
> - Show quoted text -

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)



"Dan" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> On Feb 16, 3:34 pm, "Bob Phillips" <bob....@xxxx.com> wrote:
>> activesheet.optionButtons("Option Button 1").value=0
>>
>> --
>> ---
>> HTH
>>
>> Bob
>>
>> (there's no email, no snail mail, but somewhere should be gmail in my
>> addy)
>>
>> "Dan" <dan.ga...@gmail.com> wrote in message
>>
>> news:(E-Mail Removed)...
>>
>>
>>
>> > 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- Hide quoted text -
>>
>> - Show quoted text -
>
> Thanks. Where would I encorporate this command into the macro?
>

On Feb 17, 3:11 am, "Bob Phillips" <bob....@xxxx.com> wrote:
> 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)
>
> "Dan" <dan.ga...@gmail.com> wrote in message
>
> news:(E-Mail Removed)...
>
>
>
> > On Feb 16, 3:34 pm, "Bob Phillips" <bob....@xxxx.com> wrote:
> >> activesheet.optionButtons("Option Button 1").value=0
>
> >> --
> >> ---
> >> HTH
>
> >> Bob
>
> >> (there's no email, no snail mail, but somewhere should be gmail in my
> >> addy)
>
> >> "Dan" <dan.ga...@gmail.com> wrote in message
>
> >>news:(E-Mail Removed)...
>
> >> > 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- Hide quoted text -
>
> >> - Show quoted text -
>
> > Thanks. Where would I encorporate this command into the macro?- Hide quoted text -
>
> - Show quoted text -

Cool. Thanks!