Macro on Open to clear named range

[gelu]

Hello,

Any help would be greatly appreciated! Trying to delete a named range when the workbook opens.
....
Application.Goto Reference:="Clienti_Clear_Range" '(name for range A8:K900
Selection.ClearFormats
Selection.ClearContents
....

I tried this:

Private Sub Workbook_Open()
'Updated by Extendoffice 20190712
Application.EnableEvents = False
Worksheets("Clienti").Range("A8:K900").Value = ""
Application.EnableEvents = True
End Sub


It does work from within the open worklbook but not when the worksheet opens ...

Thank you!,

Gelu

 

[HaHoBe]

Hi Gelu,

code must be placed in ThisWorkbook, not a standard module.

Ciao,
Holger

 

[gelu]

It works beautifully,

Thank you Holger!

To delete a bunch of named ranges should I do this?:

Private Sub Workbook_Open()
'Updated by Extendoffice 20190712
Application.EnableEvents = False
Worksheets("Clienti").Range("A8:K900").Value = ""
Worksheets("Sheet2").Range(Name2).Value = ""
Worksheets("Sheet3").Range(Name3).Value = ""
Application.EnableEvents = True
End Sub


Gelu

 

[HaHoBe]

Hi gelu,

the Names need to be put in quotes like

Private Sub Workbook_Open()
'https://www.mrexcel.com/board/threads/macro-on-open-to-clear-named-range.1218040/
'Updated by Extendoffice 20190712
  Application.EnableEvents = False
  Worksheets("Clienti").Range("A8:K900").Value = ""
  Worksheets("Sheet2").Range("Name2").Value = ""
  Worksheets("Sheet3").Range("Name3").Value = ""
  Application.EnableEvents = True
End Sub

Ciao,
Holger

 

[gelu]

Molte grazie!