![]()
Sub J3v16() With Sheets("Sheet1").ListObjects(1) Intersect(.DataBodyRange, .ListColumns(11).Range).SpecialCells(4).Delete End With End Sub
![]()
Sub J3v16() With Sheets("Sheet1").ListObjects(1) Intersect(.DataBodyRange, .ListColumns(11).Range).SpecialCells(4).Delete End With End Sub
Good Luck...
I don't presume to know what I am doing, however, just like you, I too started somewhere...
One-day, One-problem at a time!!!
If you feel I have helped, please click on the [★ Add Reputation] to left of post window...
Also....Add a comment if you like!!!!
And remember...Mark Thread as Solved...
Excel Forum Rocks!!!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks