Formatting for macro

[krcherrey]

I have a spreadsheet that is set up to update task numbers with WSB formatting and I need to have this formula BOLD the content in cells (r, 2) if the font is size 12. Can someone please help me write a formula for my macro that will do this?

This is the formatting that I have currently. The last line is showing to bold everything that is indent 3... or 2 decimal places. But this no longer works for me as I have some items that are headings and need to be BOLD and some that are subheading and do not need to be bold in that particular sequence...

'Apply text format: next row is deeper than current
If Cells(r + 1, 2).IndentLevel > Cells(r, 2).IndentLevel Then
Cells(r, 1).Font.Bold = False
Cells(r, 2).Font.Bold = False
'Else (next row is same/shallower than current) no format
Else
Cells(r, 1).Font.Bold = False
Cells(r, 2).Font.Bold = False
End If
'Special formatting for master (whole number) tasks)
If Cells(r, 2).IndentLevel = 0 Then
Cells(r, 1).Font.Bold = True
Cells(r, 2).Font.Bold = True
End If
'Apply text format: depth+1)
If Cells(r, 2).IndentLevel = 3 Then
Cells(r, 1).Font.Bold = True
Cells(r, 2).Font.Bold = True

Essentially I need BOLD if .IdentLevel = 3 AND font is 12.

HELP !! Thanks

 

[Russell Hauf]

Well, I'd think you'd want something like:

If Cells(r, 2).IndentLevel = 3 [B]And Cells(r, 2).Font.Size = 12[/B] Then