How do i fix "Compile Error: Expected End Sub"

[lmpaskewitz]

Private Sub Yes_Click()
Sub StandardSpecs()
'
' StandardSpecs Macro
'

'
    Range("D11:E11").Select
    ActiveCell.FormulaR1C1 = "5/12 (Std)"
    Range("D12:E12").Select
    ActiveCell.FormulaR1C1 = "8'"
    Range("D13:E13").Select
    ActiveCell.FormulaR1C1 = "2x10"
    Range("D15").Select
    ActiveCell.FormulaR1C1 = "Timberline HD"
    Range("D16").Select
    ActiveCell.FormulaR1C1 = "Double 4 Vinyl"
    Range("D17").Select
    ActiveCell.FormulaR1C1 = "EDCO"
    Range("D18:E18").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("D20:E20").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("D22").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("E22").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("D23:E23").Select
    ActiveCell.FormulaR1C1 = "Vector"
    Range("D24").Select
    ActiveCell.FormulaR1C1 = "Double Hung (Std)"
    Range("E24").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("D25:E25").Select
    ActiveCell.FormulaR1C1 = "White"
    Range("D26:E26").Select
    ActiveCell.FormulaR1C1 = "White"
    Range("D28").Select
    ActiveCell.FormulaR1C1 = "Bayerbuilt Steel"
    Range("E28").Select
    ActiveCell.FormulaR1C1 = "HDG - 6 Panel (Std)"
    Range("D29").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("D30").Select
    ActiveCell.FormulaR1C1 = "Prime"
    Range("E30").Select
    ActiveCell.FormulaR1C1 = "White"
    Range("D31").Select
    ActiveCell.FormulaR1C1 = "HTG-HDG 6 Panel FR (Std)"
    Range("E31").Select
    ActiveCell.FormulaR1C1 = "Primed White"
    Range("D32").Select
    ActiveCell.FormulaR1C1 = "Lands End (Std)"
    Range("E32").Select
    ActiveCell.FormulaR1C1 = "Satin Nickel (Std)"
    Range("D33").Select
    ActiveCell.FormulaR1C1 = "Lands End (Std)"
    Range("E33").Select
    ActiveCell.FormulaR1C1 = "Satin Nickel (Std)"
    Range("D34").Select
    ActiveCell.FormulaR1C1 = "Lands End (Std)"
    Range("E34").Select
    ActiveCell.FormulaR1C1 = "Satin Nickel (Std)"
    Range("D35").Select
    ActiveWindow.SmallScroll Down:=12
    ActiveCell.FormulaR1C1 = "Hollow Core Flush"
    Range("E35").Select
    ActiveCell.FormulaR1C1 = "Oak"
    Range("D37:E37").Select
    ActiveCell.FormulaR1C1 = "Oak 219A & 115A (Std)"
    Range("D43:E43").Select
    ActiveCell.FormulaR1C1 = "Orange Peel (Std)"
    Range("D44:E44").Select
    ActiveCell.FormulaR1C1 = "Orange Peel (Std)"
    Range("D46:E46").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("D47").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("E47").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("D49").Select
    ActiveWindow.SmallScroll Down:=21
    ActiveCell.FormulaR1C1 = "Vinyl"
    Range("D50").Select
    ActiveCell.FormulaR1C1 = "Carpet"
    Range("D51").Select
    ActiveCell.FormulaR1C1 = "Vinyl"
    Range("D52").Select
    ActiveCell.FormulaR1C1 = "Vinyl"
    Range("D54").Select
    ActiveCell.FormulaR1C1 = "Carpet"
    Range("D55").Select
    ActiveCell.FormulaR1C1 = "Carpet"
    Range("D59").Select
    ActiveCell.FormulaR1C1 = "Vinyl"
    Range("D60").Select
    ActiveWindow.SmallScroll Down:=-36
    Range("G11").Select
    ActiveCell.FormulaR1C1 = "Hartford"
    Range("H11").Select
    ActiveCell.FormulaR1C1 = "Oak Std."
    Range("G13").Select
    ActiveCell.FormulaR1C1 = "Hartford"
    Range("H13").Select
    ActiveCell.FormulaR1C1 = "Oak Std."
    Range("G15").Select
    ActiveCell.FormulaR1C1 = "Hartford"
    Range("H15").Select
    ActiveCell.FormulaR1C1 = "Oak Std."
    Range("G19").Select
    ActiveCell.FormulaR1C1 = "Caprice"
    Range("G20").Select
    ActiveCell.FormulaR1C1 = "3"" Integrated Formica"
    Range("G21").Select
    ActiveCell.FormulaR1C1 = "Caprice"
    Range("G22").Select
    ActiveCell.FormulaR1C1 = "3"" Integrated Formica"
    Range("G23").Select
    ActiveCell.FormulaR1C1 = "Caprice"
    Range("G24").Select
    ActiveCell.FormulaR1C1 = "3"" Integrated Formica"
    Range("G26:H26").Select
    ActiveCell.FormulaR1C1 = "Chrome (Std)"
    Range("G27:H27").Select
    ActiveCell.FormulaR1C1 = "Stainless Steel (Std)"
    Range("G28:H28").Select
    ActiveCell.FormulaR1C1 = "Standard"
    Range("G29:H29").Select
    ActiveCell.FormulaR1C1 = "Fiberglass - White (Std)"
    Range("G34:H34").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("G35").Select
    ActiveWindow.SmallScroll Down:=21
    Range("G36:H36").Select
    ActiveCell.FormulaR1C1 = "Satin Nickel (Std)"
    Range("G37:H37").Select
    ActiveCell.FormulaR1C1 = "8592-12 Black (Std)"
    Range("G38:H38").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("G41:H41").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("G42:H42").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("G43:H43").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("G44:H44").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("G47:H47").Select
    ActiveCell.FormulaR1C1 = "JNM3151DFBB (Std)"
    Range("G48:H48").Select
    ActiveCell.FormulaR1C1 = "JB620DFBB (Std)"
    Range("G49:H49").Select
    ActiveCell.FormulaR1C1 = "GIEI8GTHBB (Std)"
    Range("G50:H50").Select
    ActiveCell.FormulaR1C1 = "GSD4000DBB (Std)"
    Range("G51:H51").Select
    ActiveCell.FormulaR1C1 = "N/A (Std)"
    Range("G52:H52").Select
    ActiveCell.FormulaR1C1 = "N/A (Std)"
    Range("G53:H53").Select
    ActiveCell.FormulaR1C1 = "N/A (Std)"
    Range("G54:H54").Select
    ActiveCell.FormulaR1C1 = "N/A (Std)"
    Range("G55:H55").Select
    ActiveCell.FormulaR1C1 = "N/A (Std)"
    Range("G56").Select
    ActiveWindow.SmallScroll Down:=-45
End Sub

[Luk3r]

Private Sub Yes_Click()
 'Your Data in here'
End Sub
 
Private Sub StandardSpecs()
 'Your Data in here'
End Sub

[lmpaskewitz]

Ok, so I tried that and i get Compile Error: Ambiguous name detected: StandardSpecs

[Luk3r]

That error is because you've declared a public sub in two modules whose names are the same, or you've declared the sub twice in the code of one form. This simply means, "Private Sub StandardSpecs() " exists twice.

[lmpaskewitz]

Ok, i got it - thanks so much!!

[Luk3r]

You're welcome! Don't forget to mark the answer!