Insert file name on every open workbook.

[Genetu]

Hi guys, I want to make this. I am sharing my computer with three of my colleagues. If they open any excel file (new or saved), the value is B2 is the organization's name, and save. I tied this.

Sub Auto_Open()
ThisWorkbook.ActiveSheet.[B2] = "Shield.Org"
activeworkbook.Savechanges:=true
End Sub

But on every active sheet the text "Shield.Org" does not exist on B2. I need your valuable help. Thanks in advance.

 

[Georgiboy]

The below will change every sheet on file open however it will only work on files that contain the below piece of code:

Sub Auto_Open()
    Dim ws As Worksheet
    
    For Each ws In Sheets
        ws.[B2] = "Shield.Org"
    Next ws
    ThisWorkbook.Save
End Sub

 

[Genetu]

The below will change every sheet on file open however it will only work on files that contain the below piece of code:

Sub Auto_Open()
    Dim ws As Worksheet
   
    For Each ws In Sheets
        ws.[B2] = "Shield.Org"
    Next ws
    ThisWorkbook.Save
End Sub

Yeah, It is not working for all opening books.