delete text with certain fonts

[kylefoley76]

I've got a doc that was converted into text from a book by a computer, consequently there are a lot of mistakes. Any text that is not in times new roman is a mistake and needs to be deleted. How do I write a macro for that? Any text in a font greater than or equal to 18, or less than or equal to 10 is also a mistake. How do I write a macro for that?

Any help would be greatly appreciated.

 

[sarcastress]

I have no solution to this question, but I'd like to know how to remove all Comic Sans from the world. Is there a macro for that?

 

[Rick Rothstein]

This might do what you are after...

Sub KeepTimesNewRoman10to18()
  Dim C As Range
  Application.ScreenUpdating = False
  For Each C In ActiveSheet.UsedRange
    If C.Font.Name <> "Times New Roman" Or C.Font.Size < 10 Or C.Font.Size > 18 Then C.Clear
  Next
  Application.ScreenUpdating = True
End Sub