Forums
New posts
Search forums
Members
Current visitors
Log in
Register
What's new
Search
Search
Search titles only
By:
New posts
Search forums
Menu
Log in
Register
Install the app
Install
Forums
Archive
Newsgroup Archive
Word Newsgroups
Word VBA
Find text and delete row
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
Reply to thread
Message
[QUOTE="Greg Maxey, post: 5833586"] Or shorter still: Sub Test() Dim oRow As Row Dim eoc As String: eoc = vbCr & Chr(7) For Each oRow In Selection.Tables(1).Rows Select Case oRow.Cells(1).Range.Text Case "0" & eoc, "-1" & eoc, "-2" & eoc, "-3" & eoc oRow.Delete Case Else 'Do nothing End Select Next oRow End Sub [/QUOTE]
Verification
Post reply
Forums
Archive
Newsgroup Archive
Word Newsgroups
Word VBA
Find text and delete row
Top
