Public Sub InsertHiddenName() Names.Add Name:="PassWord", RefersTo:="Bazonkas", Visible:=False End Sub