Clear cells on open

[Romano_odK]

Good morning,

Found this macro and it seems ok, but it doesn't work. So created a new module for that and added this to the module. Sheet name is correct, so what am I missing here?

Thank you for your time,

Romano

Private Sub Workbook_Open()
' Erase cells on open workbook
Application.EnableEvents = False
Worksheets("A100").Range("a2:a4").Clear
Application.EnableEvents = True
End Sub

 

[My Aswer Is This]

I do not think you have a sheet named: "A100"
Worksheets("A100").Range("a2:a4").Clear
Name you sheet like Alpha or Bravo

 

[Fluff]

So created a new module for that and added this to the module.

That code should not go in a standard module, it needs to go in the ThisWorkbook module.

 

[Romano_odK]

That code should not go in a standard module, it needs to go in the ThisWorkbook module.

Good afternoon,

That did the trick, thank you for your time.

Kind regards,

Romano

 

[Fluff]

Glad we could help & thanks for the feedback.