Sub new_sheet()
'
' new_sheet Macro
' Creates a new sheet for additional account units.
'
'
Sheets("Variance").Select
ActiveSheet.CheckBoxes.Add(628.5, 354, 24, 17.25).Select
ActiveSheet.DropDowns.Add(660.75, 353.25, 54.75, 21).Select
ActiveSheet.CheckBoxes.Add(628.5, 375, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(628.5, 396, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(628.5, 417, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(628.5, 438, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(628.5, 459, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(628.5, 480, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(628.5, 501, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(628.5, 522, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(628.5, 543, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(628.5, 564, 24, 17.25).Select
ActiveSheet.CheckBoxes.Add(628.5, 585, 24, 17.25).Select
ActiveSheet.DropDowns.Add(0, 353.25, 144.75, 21).Select
ActiveSheet.ListBoxes.Add(15, 177, 210.75, 51.75).Select
ActiveSheet.Buttons.Add(611.25, 282, 103.5, 30).Select
ActiveSheet.DropDowns.Add(0, 374.25, 144.75, 21).Select
ActiveSheet.DropDowns.Add(0, 395.25, 144.75, 21).Select
ActiveSheet.DropDowns.Add(0, 416.25, 144.75, 21).Select
ActiveSheet.DropDowns.Add(0, 437.25, 144.75, 21).Select
ActiveSheet.DropDowns.Add(0, 458.25, 144.75, 21).Select
ActiveSheet.DropDowns.Add(0, 479.25, 144.75, 21).Select
ActiveSheet.DropDowns.Add(0, 500.25, 144.75, 21).Select
ActiveSheet.DropDowns.Add(0, 521.25, 144.75, 21).Select
ActiveSheet.DropDowns.Add(0, 542.25, 144.75, 21).Select
ActiveSheet.DropDowns.Add(0, 563.25, 144.75, 21).Select
ActiveSheet.DropDowns.Add(0, 584.25, 144.75, 21).Select
ActiveSheet.DropDowns.Add(660.75, 374.25, 54.75, 21).Select
ActiveSheet.DropDowns.Add(660.75, 395.25, 54.75, 21).Select
ActiveSheet.DropDowns.Add(660.75, 416.25, 54.75, 21).Select
ActiveSheet.DropDowns.Add(660.75, 437.25, 54.75, 21).Select
ActiveSheet.DropDowns.Add(660.75, 458.25, 54.75, 21).Select
ActiveSheet.DropDowns.Add(660.75, 479.25, 54.75, 21).Select
ActiveSheet.DropDowns.Add(660.75, 500.25, 54.75, 21).Select
ActiveSheet.DropDowns.Add(660.75, 521.25, 54.75, 21).Select
ActiveSheet.DropDowns.Add(660.75, 542.25, 54.75, 21).Select
ActiveSheet.DropDowns.Add(660.75, 563.25, 54.75, 21).Select
ActiveSheet.DropDowns.Add(660.75, 584.25, 54.75, 21).Select
Sheets("Variance").Copy After:=Sheets(2)
End Sub
Bookmarks