UserFrom Checkbox Selection not populating Cells

I'm sure I'm doing this wrong, since its not working for me.....

I've created a user form with a bunch of check boxes that can be selected.
I created the command button on the sheet to bring up the user form when pushed.

That works.^

But when I select the boxes I want results from, nothing happens? None of the cells are populating with results from the selected boxes.

Any suggestions would be appreciated.

Command Button Code:

Sub Button29_Click()
VesselDetails1.Show
End Sub

UserForm Code:

Private Sub showvesseldetails_Click()
'VESSEL INFORMATION
            'Vessel Operations Options
            If VesselDetails1.loadbox.Value = True Then
                Worksheets("Cover Page").Range("A18").Value = "Load"
            End If
            If VesselDetails1.dischargebox.Value = True Then
                Worksheets("Cover Page").Range("A18").Value = "Discharge"
            End If
            If VesselDetails1.conditionbox.Value = True Then
                Worksheets("Cover Page").Range("A18").Value = "Condition & Load / Blend"
            End If
'Vessel Gauging Options
If VesselDetails1.innagebox.Value = True Then
    Worksheets("Cover Page").Range("A21").Value = "Innage"
End If
If VesselDetails1.ullagebox.Value = True Then
    Worksheets("Cover Page").Range("A21").Value = "Ullage"
End If
            'Calculations Options
            If VesselDetails1.vacuumbox.Value = True Then
                Worksheets("Cover Page").Range("A24").Value = "Vacuum"
            End If
            If VesselDetails1.vacuumairbox.Value = True Then
                Worksheets("Cover Page").Range("A24").Value = "Vacuum / Air"
            End If
'Blending Options
If VesselDetails1.yesgpabox.Value = True Then
    Worksheets("Cover Page").Range("A27").Value = "Yes-GPA/HP"
End If
If VesselDetails1.yeshpbox.Value = True Then
    Worksheets("Cover Page").Range("A27").Value = "Yes-HP/GPA"
End If
If VesselDetails1.yesbox.Value = True Then
    Worksheets("Cover Page").Range("A27").Value = "Yes"
End If
If VesselDetails1.nobox.Value = True Then
    Worksheets("Cover Page").Range("A27").Value = "No"
End If
            'Conditioning in BOL Options
            If VesselDetails1.yesbolbox.Value = True Then
                Worksheets("Cover Page").Range("A30").Value = "Yes"
            End If
            If VesselDetails1.nobolbox.Value = True Then
                Worksheets("Cover Page").Range("A30").Value = "No"
            End If

'SHORE MEASUREMENT
'Shore Measurement Options
If VesselDetails1.activebox.Value = True Then
    Worksheets("Cover Page").Range("L17").Value = "Active"
End If
If VesselDetails1.shoretankbox.Value = True Then
    Worksheets("Cover Page").Range("L17").Value = "Shore Tank"
End If
If VesselDetails1.shoremetersbox.Value = True Then
    Worksheets("Cover Page").Range("L17").Value = "Shore Meters"
End If
            'Shore Quantified Options
            If VesselDetails1.barrelsbox.Value = True Then
                Worksheets("Cover Page").Range("L20").Value = "Barrels"
            End If
            If VesselDetails1.gallonsbox.Value = True Then
                Worksheets("Cover Page").Range("L20").Value = "Gallons"
            End If
            If VesselDetails1.poundsbox.Value = True Then
                Worksheets("Cover Page").Range("L20").Value = "Pounds"
            End If
            If VesselDetails1.cubicmetersbox.Value = True Then
                Worksheets("Cover Page").Range("L20").Value = "Cubic Meters"
            End If
'Vessel Liquid Options
If VesselDetails1.t54box.Value = True Then
    Worksheets("Cover Page").Range("I29").Value = "T54 - New"
End If
If VesselDetails1.astmtable54box.Value = True Then
    Worksheets("Cover Page").Range("I29").Value = "ASTM Table 54"
End If
If VesselDetails1.depauwstokoeethylenebox.Value = True Then
    Worksheets("Cover Page").Range("I29").Value = "Depauw & Stokoe (Ethylene)"
End If
If VesselDetails1.depauwstokoepropylenebox.Value = True Then
    Worksheets("Cover Page").Range("I29").Value = "Depauw & Stokoe (Propylene)"
End If
            'Shore Liquid Options
            If VesselDetails1.t24newbox.Value = True Then
                Worksheets("Cover Page").Range("M29").Value = "T24 - New"
            End If
            If VesselDetails1.d1550table2box.Value = True Then
                Worksheets("Cover Page").Range("M29").Value = "ASTM D - 1550 Table 2"
            End If
            If VesselDetails1.lc736table3box.Value = True Then
                Worksheets("Cover Page").Range("M29").Value = "LC - 736 Table 3"
            End If
            If VesselDetails1.astmtable24box.Value = True Then
                Worksheets("Cover Page").Range("M29").Value = "ASTM Table 24"
            End If
            If VesselDetails1.chevproplyenebox.Value = True Then
                Worksheets("Cover Page").Range("M29").Value = "Chevron Propylene"
            End If
            If VesselDetails1.depauwstokoepropylenebox2.Value = True Then
                Worksheets("Cover Page").Range("M29").Value = "Depauw & Stokoe (Propylene)"
            End If
'Shore Vapor Options
If VesselDetails1.d1550table1box.Value = True Then
    Worksheets("Cover Page").Range("H31").Value = "ASTM D - 1550 Table 1"
End If
If VesselDetails1.d1550table4box.Value = True Then
    Worksheets("Cover Page").Range("H31").Value = "ASTM D - 1550 Table 4"
End If
If VesselDetails1.butene1box.Value = True Then
    Worksheets("Cover Page").Range("H31").Value = "Butene 1 (TPC)"
End If
If VesselDetails1.petrotexbox.Value = True Then
    Worksheets("Cover Page").Range("H31").Value = "Petro-Tex"
End If
If VesselDetails1.chevronpropylenebox.Value = True Then
    Worksheets("Cover Page").Range("H31").Value = "Chevron Propylene"
End If
If VesselDetails1.compfactorbox.Value = True Then
    Worksheets("Cover Page").Range("H31").Value = "Comp. Factor or Molecular Wt"
End If
End Sub

Private Sub CommandButton1_Click()
VesselDetails1.Hide
End Sub

I solved this one myself. I changed all Checkboxes to Option Buttons.

Thanks anyway.