Author: derek

Attribute VB_Name = “Titles” Global Const PROJECT = “Empirix Trace” Global Const VER = “2.5.2” Private Sub updateVer() Worksheets(“Title”).Select Worksheets(“Title”).Unprotect Password:=”4626″ Worksheets(“Title”).Shapes.Range(Array(“Rectangle 1”)).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = PROJECT Worksheets(“Title”).Shapes.Range(Array(“Rectangle 2”)).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = “Version ” & VER ActiveWorkbook.Windows(1).Caption = PROJECT & ” v” & VER Worksheets(“Title”).Protect Password:=”4626″, DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub Private Sub protection() ‘ Worksheets(“Title”).Unprotect Password:=”4626″… Continue reading Titles