Vba replace a list of cells with blanks in entire workbook

[rhombus4]

I have a list of data in column x in sheet1 data starts in X1 and goes down to x20

what I need is 1 by 1 search the values in X1 to x20 and try to find that value in the 1st column of every sheet and delete that value. If it can't find it don't do anything and if a cell in X1 to x20 is blank then exit the sub

thanks

 

[Peter_SSs]

Was the code placed in the other workbook?

Can you post the actual code that you used so I can be sure of just what changes have been made at your end?

 

[rhombus4]

Haven't got a clue whats wrong, even without the hidden sheets it deletes the items I'm looking for first and then loops and does nothing

 

[rhombus4]

The code was placed in another workbook but then it stopped working in the original.

Seems to be ok now. Not sure what's wrong seem to be having loads of random crashes with useforms with automation errors so can't even debug. Thanks for all your help