Macro to fid sheet name in list and delete it

[tonywatsonhelp]

Hi everyone,

I need a macro that can find the name of the active sheet in a list of sheets in column Q then delete it and the data in the next 4 columns of that row?

please help if you can

Thanks

Tony

 

[MARK858]

I am assuming that you mean clearcontents rather than delete in the line below as if you delete it will shift all the rows below up.

Columns("Q").Find(ActiveSheet.Name, , xlValues, xlWhole, xlByRows, xlNext).Resize(, 5).ClearContents

 

[tonywatsonhelp]

Hi mark,
I did mean delete but i can deal with that, this is exactly what i needed thank you Tony

 

[MARK858]

You're welcome.