I recorded this macro in Excel 2003 and it works fine:
Sub Vertical()
ActiveSheet.Unprotect
ActiveSheet.Shapes.AddLine(597.75, 57, 597.75, 600#).Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle...