Delete bolded items in column

How would I delete any items in, say column G, through a macro. I'm finding
I have to manually delete items and it would save time to do this through a
macro.

Thanks!

Annette

Annette,

This simple test worked to delete BOLD formatted cells in column A, rows
1-26 on the Active Sheet. You could subtutute your own looping device.

For x = 1 To 26
If Cells(x, 1).Font.Bold = True Then
Cells(x, 1).Value = ""
End If
Next

Roy

"Annette" wrote:

> How would I delete any items in, say column G, through a macro. I'm finding
> I have to manually delete items and it would save time to do this through a
> macro.
>
> Thanks!
>
> Annette
>
>
>

Annette,

You might want to turn off the bold format from inside the loop at the same
time if the same cells aren't being deleted each time by adding this to the
loop.

Cells(x, 1).Font.Bold = False

Roy

"Roy" wrote:

> Annette,
>
> This simple test worked to delete BOLD formatted cells in column A, rows
> 1-26 on the Active Sheet. You could subtutute your own looping device.
>
> For x = 1 To 26
> If Cells(x, 1).Font.Bold = True Then
> Cells(x, 1).Value = ""
Cells(x, 1).Font.Bold = False 'add to drop bold
> End If
> Next
>
> Roy
>
> "Annette" wrote:
>
> > How would I delete any items in, say column G, through a macro. I'm finding
> > I have to manually delete items and it would save time to do this through a
> > macro.
> >
> > Thanks!
> >
> > Annette
> >
> >
> >

Perfect and saves me tons of time!

Thanks!
"Roy" <Roy@discussions.microsoft.com> wrote in message
news:F3E1E105-D9C2-4AF2-8F8E-B788DEC99EC5@microsoft.com...
> Annette,
>
> This simple test worked to delete BOLD formatted cells in column A, rows
> 1-26 on the Active Sheet. You could subtutute your own looping device.
>
> For x = 1 To 26
> If Cells(x, 1).Font.Bold = True Then
> Cells(x, 1).Value = ""
> End If
> Next
>
> Roy
>
> "Annette" wrote:
>
>> How would I delete any items in, say column G, through a macro. I'm
>> finding
>> I have to manually delete items and it would save time to do this through
>> a
>> macro.
>>
>> Thanks!
>>
>> Annette
>>
>>
>>