Insert Blank row before bold text

[cpeaks]

I have a a weekly excel file that I need to add a blank row before Item Title. The title is always doen with a bold type face, is there a way to search for certain font criteria i.e. "BOLD" and have a new blank row inserted before that row?

I look forward to your assiastance as I am trying to learn.

Thank you,
Chris Pecor

 

[Fluff]

Try recording a macro
Search>leave Find What blank>select Format > then select font & Bold

 

[Rick Rothstein]

Assuming you will never have two bold cells next to each other in Column A, here is a macro solution whose code the macro recorder will never give you...

[table="width: 500"]
[tr]
	[td]Sub KeepNumbersAndFirstNonNumbers()
  Dim UnusedCol As Long
  UnusedCol = Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column + 1
  Application.ScreenUpdating = False
  Columns("A").Copy Cells(1, UnusedCol)
  Application.FindFormat.Clear
  Application.FindFormat.Font.Bold = True
  Columns(UnusedCol).Replace "*", "", SearchFormat:=True, ReplaceFormat:=False
  Application.FindFormat.Clear
  On Error Resume Next
  Columns(UnusedCol).SpecialCells(xlBlanks).EntireRow.Insert
  On Error GoTo 0
  Columns(UnusedCol).Clear
  Application.ScreenUpdating = True
End Sub[/td]
[/tr]
[/table]