Can you copy the code and paste it here.
yes
Private Sub CBBanchattach_Click()
End Sub
Private Sub CheckBox1_Click()
End Sub
Private Sub CMPrint_Click()
If CBInput.Value = True Then
Sheets("INPUT").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBA1.Value = True Then
Sheets("I. A1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBA2.Value = True Then
Sheets("I. A2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBA3.Value = True Then
Sheets("I. A3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBA4.Value = True Then
Sheets("I. A4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBA5.Value = True Then
Sheets("I. A5").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBCG.Value = True Then
Sheets("CG").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CB2Plate.Value = True Then
Sheets("II. 2 plate").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CB3Plate.Value = True Then
Sheets("II. 3 plate").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBBearing.Value = True Then
Sheets("III. bearing").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBFtgBending.Value = True Then
Sheets("IV. ftg bending").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBFtgBending = True Then
Sheets("V. bending (V bars)").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBAanchattach = True Then
Sheets("VI. A anch attach").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBBanchattach = True Then
Sheets("VI. B anch attach").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBCanchattach = True Then
Sheets("VI. C anch attach").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBDanchattach = True Then
Sheets("VI. D anch attach").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBEanchattach = True Then
Sheets("VI. E anch attach").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBRichmond = True Then
Sheets("Richmond Inserts Capacity").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBEffective = True Then
Sheets("Effective Slope").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CBPlateCalc = True Then
Sheets("3plate-calcs").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Sheets("INPUT").Select
End Sub
Private Sub CheckBox2_Click()
End Sub
Private Sub CheckBox3_Click()
End Sub
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
Dim Off As Integer
Application.EnableEvents = False
Select Case Range("Wingwall_Number").Value
Case 1
Off = 0
Case 2
Off = 26
Case 3
Off = 51
Case 4
Off = 76
End Select
If WorkbookIsOpen(FileNameOnly(Range("sourcefile").Text)) = False Then
Workbooks.Open Filename:=Range("sourcefile").Text
End If
Windows(FileNameOnly(Range("sourcefile").Text)).Activate
Sheets("Summary").Activate
ActiveSheet.Range("WW1TypeA").Offset(Off + 12, 0) = Range("$b$84")
ActiveSheet.Range("WW1TypeA").Offset(Off, 0) = Range("as")
ActiveSheet.Range("WW1TypeA").Offset(Off + 1, 0) = Range("bs")
ActiveSheet.Range("WW1TypeA").Offset(Off + 2, 0) = Range("cs")
ActiveSheet.Range("WW1TypeA").Offset(Off + 3, 0) = Range("ds")
ActiveSheet.Range("WW1TypeA").Offset(Off + 4, 0) = Range("es")
ActiveSheet.Range("WW1TypeA").Offset(Off + 7, 0) = Range("$b$95") * 12
ActiveSheet.Range("WW1TypeA").Offset(Off + 8, 0) = Range("$b$96")
ActiveSheet.Range("WW1TypeA").Offset(Off + 9, 0) = Range("$b$97")
ActiveSheet.Range("WW1TypeA").Offset(Off + 11, 0) = Range("$b$94")
ActiveSheet.Range("WW1TypeA").Offset(Off + 10, 0) = Range("dist1")
Application.EnableEvents = True
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub ComboBox3_Change()
End Sub
Private Sub ToggleButton1_Click()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim WW_Template As Workbook
Set WW_Template = Application.ActiveWorkbook
Dim InputSheet As Worksheet
Set InputSheet = WW_Template.Worksheets("INPUT")
Dim SampleSheet As Worksheet
Set SampleSheet = WW_Template.Worksheets("Sample")
Dim Sh As Shape
For Each Sh In SampleSheet.Shapes
Sh.Delete
Next Sh
GenerateViews
End Sub