Excel 2010 code that clears content of a cell on open Closed

Question

Hi

I am looking for code that clears content of a cell based on a value when the workbook opens.
I have several sheets in the workbook with varied cell locations where there is an x.  Anywhere the x appears I want the code to clear contents.  

I have searched the forum but I am not quite finding exactly what I need and limited in writing code to meet my needs.  I hope my request is clear.

TrowaD · Answer

Hi Jamhome,

Try the following code:
Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In Worksheets
    Do
        ws.Select
        Cells.Find(What:="x", lookat:=xlWhole).ClearContents
    Loop Until Cells.Find(What:="x", lookat:=xlWhole) Is Nothing
Next ws

End Sub 

To implement, hit Alt+F11, locate "ThisWorkbook" on the left side of the newly opened window. Double click on it and paste the code in the big white field.

Best regards,
Trowa

Excel 2010 code that clears content of a cell on open

1 response

Similar discussions

Subscribe To Our Newsletter!