If (sht.Name <> "DataBase") And (sht.Name <> "Codes") Then .AddItem