[Aj_old]

Why not just to add a new column in which to input the type (VHS, DVD, or any aother) and after that just use Auto filter (which will show only the type you need) and you can easily print it or any other thing!
It's more easier than using bold!

[slurpee55]

Probably that would have been the easiest before, AJ, but now that she has done the bolding, she is trying to save some work.
But really, the Name and range item I put in before is very simple.
You go to Insert, Name and in the Refers To box enter

=GET.CELL(20,OFFSET(INDIRECT("A2"),ROW()-2,0))

Name the function something simple (I used bold_cell) and then in a new column after A enter

=bold_cell

If a cell is bold, it will return TRUE, if not it will return FALSE. Then filter that column for the TRUE.

[bomb #21]

Originally Posted by slurpee

... now that she has done the bolding ...

Exactly. Plus there was the possibility it wasn't a "proper" list, which (turns out) it wasn't -- it was 4 columns of titles.

Fixed now with a standard For Each > If Cell.Font.Bold = True etc.

on the =GET.CELL BTW. I've cribbed a similar thing before for grabbing page breaks.

[~Candy~]

I NEVER, even placed you with that MSN Messenger screen name

Wow.

Ok, I've recovered now.

Another big THANK YOU!

Problem solved!

[bomb #21]

Originally Posted by Candy

... Ok, I've recovered now ...

I ½-thought of a comeback involving "recovery position" but ... <cwlmst>!

[~Candy~]

slurpee, thank you too!!!!

[slurpee55]

so, it sounds like our friend bomb has secrets? glad he fixed it for your Candy.

[~Candy~]

I'm back

Would it be too much to ask to get the "unbolded" ones pulled out separately?

[slurpee55]

What would you have done with them? Copied to another sheet? Deleted? Sent to Mars?

[bomb #21]

"Too much" = doubtful. "Easier if I'd asked for both things at the same time" = likely.

I had the file when I worked on it, then ditched it straight after because ... that's what I do.

It was a sheet with 4 lists in 4 columns. So it would have been like:

For Each Cell in Selection
If Cell.Font.Bold = True Then
Cell.Copy Sheets("Sheet_I_Added").Range("A"&Rows.Count).End(xlup).Offset(1)
End If
Next Cell

, selecting each list in turn & running manually.

Except now it would be Font.Bold = False.

HTH

[~Candy~]

Ok, so what do I do with that? Open my main page where everything is bold and not bold, then what?

Create a macro? And if so, step by little baby step please. Remember I'm software challenged

[bomb #21]

IIRC there's no sensitive data -- attach it.

[~Candy~]

Nothing sensitive, just my list of movies Thanks a bunch !!!!

And I would have asked for it both ways from the beginning except hubby asked for a list of only the DVDs yesterday I should have anticipated that

[bomb #21]

5 minutes.

ETA: attachment.

[~Candy~]

Thanks, you're a gem