Delete all rows and columns relative to starter cell.

Hello ExcelForum!

I have a function SearchCells() that searches my active worksheet for a keyword and returns the cell address (as a string). If you use it with this sample Sample.xlsx then SearchCells("Sample", 2) would return the string "C4"

I am trying to write a subroutine to mass delete cells based on the return from SearchCells such that would function in the following way:

DeleteCells(SearchCells("Sample", 2), Left) or DeleteCells("C4", Left) would delete column A and B, shifting cells to the left
DeleteCells(SearchCells("Sample", 2), Right) or DeleteCells("C4", Right) would delete column D and E (all columns to the right of C)
DeleteCells(SearchCells("Sample", 2), Up) or DeleteCells("C4", Up) would delete rows 1, 2 and 3, shifting cells up
DeleteCells(SearchCells("Sample", 2), Down) or DeleteCells("C4", Down) would delete rows 5, 6, 7 (all rows below 4)

Anyone know a simple way to write this?

something like this:

Please Login or Register  to view this content.

HTH!

Fixed the range issue like this:

Please Login or Register  to view this content.

Fixed the problem where it'd delete the referenced cell if it's on the last row/column

Please Login or Register  to view this content.

Good work
Just in case you have more than one worksheet in your workbook, remember the following shall work only for the ActiveSheet.

Please Login or Register  to view this content.