Formatted cells

N

Nenagh

I have a very large database, some of the records are in bold.
I would like, in a new column to mark the adjacent cell that is bold so i
can then sort the data

Cheers
 
J

Jim Rech

There is no worksheet function you can use for this so you have to use a
macro. An example:

Sub MarkBoldInColToLeft()
Dim Cell As Range
For Each Cell In Range("B1:B10") ''Adjust
If Cell.Font.Bold Then
Cell.Offset(0, -1).Value = "x"
End If
Next
End Sub
 
Top