Message to find number and delete rows

[howard]

I would like macro that would make mesage box pop up so that I can enter a number. The number that I want to enter appears in column A in Sheet2. Once the number Is found for eg 85174, I want all the rows Containning this number in Col A on Sheet2 to be deleted

Your assistance in this regard is most appreciated

 

[howard]

Have also posted on Show message Box and delete rows | Windows Secrets Lounge