Deleting rows with certain criteria - Help today PLEASE

[Cynthia Zone]

Hello,

I am trying to add another criteria to my macro below. I need to delete any rows with numbers less than 5 digits. Can you please help me with the code.
This is what I have now.

Sub DeleteRowsNotCheques()
  Columns("B").Replace "dep*", "#N/A", xlPart
  Columns("B").Replace "dd*", "#N/A", xlPart
  Columns("B").Replace "P*", "#N/A", xlPart
  Columns("B").Replace "XXX*", "#N/A", xlPart
  Columns("B").Replace "", "#N/A", xlPart
  Columns("B").Replace "Transfer", "#N/A", xlPart
  On Error Resume Next
  Columns("B").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
  On Error GoTo 0
  Columns("C").Replace "", "#N/A", xlPart
  On Error Resume Next
  Columns("C").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
  On Error GoTo 0

End Sub

Thank you

 

[Hui]

Cynthia

If you use the Search Box at the Top Right of every page at Chandoo.org you would have found several answers and had an answer several hours earlier, as this is a commonly asked question

Specifically:
http://www.chandoo.org/forum/threads/delete-user-selected-rows-only-if-col-b-1.15668/#post-94521
http://www.chandoo.org/forum/threads/delete-all-the-blank-rows-in-between.17502/#post-105747

 

[cynzone]

Thank you.

I did search but did not find the answer. I will search now.

regards,
Cynthia

 

[Hui]

I listed two examples of how to do it above ?