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