VBA Compile Error: Expected End With

I'm am VERY new to VBA and I'm trying to create a user form for document control of specifications. I made the form and tried to run the code and I keep getting a Compile Error. Can anyone tell me how to fix this? Please dumb it down for me, because I need it explained like I'm 6.

Thank you!

Mich

hi MLS Packer Lover

With the "Compile Error" you have one "End With " Missing

I fixed that, but when I debug it, I still get an error.

Dude what error which line

Hi MLS Packer Lover
I've looked at your code...it appears you have more than one End If statements missing. See this link
http://www.techonthenet.com/excel/formulas/if_then.php

Nest your code; then you can see where you need End Ifs and Loops

Private Sub cmdOK_Click()
    ActiveWorkbook.Sheets("Change Request Form").Activate
    Range("A1").Select
Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    
Loop Until IsEmpty(ActiveCell) = True

        ActiveCell.Value = txtCCTC.Value
        ActiveCell.Offset(0, 2) = txtCustomer.Value
        ActiveCell.Offset(0, 3) = txtInitiator.Value.Value
        ActiveCell.Offset(0, 4) = txtDocumentAffected.Value
    
        If optScrapReduction = True Then
            ActiveCell.Offset(0, 5).Value = "Scrap Reduction"
        ElseIf optLaborReduction = True Then
            ActiveCell.Offset(0, 5).Value = "Labor Reduction"
        ElseIf optVariationReduction = True Then
            ActiveCell.Offset(0, 5).Value = "Variation Reduction"
        ElseIf optCustomerSpecificationChange = True Then
            ActiveCell.Offset(0, 5).Value = "Customer Specification Change"
        ElseIf optReworkReduction = True Then
            ActiveCell.Offset(0, 5).Value = "Rework Reduction"
        ElseIf optMaterialReduction = True Then
            ActiveCell.Offset(0, 5).Value = "Material Reduction"
        ElseIf optEditorial = True Then
            ActiveCell.Offset(0, 5).Value = "Editorial"
        ElseIf optOther = True Then
            ActiveCell.Offset(0, 6).Value = "Other"
        End If
    
        If chkYes = True Then
            ActiveCell.Offset(0, 10).Value = "Yes"
        ElseIf chkNo = True Then
            ActiveCell.Offset(0, 10).Value = "No"
        End If
    
        If chkYes = True Then
            ActiveCell.Offset(0, 11).Value = "Yes"
        Else
            ActiveCell.Offset(0, 11).Value = "No"
        End If
        
        If chkYes = True Then
            ActiveCell.Offset(0, 13).Value = "Yes"
        Else
            ActiveCell.Offset(0, 13).Value = "No"
            
            If chkYes = True Then
                ActiveCell.Offset(0, 13).Value = "Yes"
            Else
                ActiveCell.Offset(0, 14).Value = "No"
    
                If chkYes = True Then
                    ActiveCell.Offset(0, 14).Value = "Yes"
                Else
                    ActiveCell.Offset(0, 14).Value = "No"
                End If
    
    Range("A1").Select

End Sub

I'd say you're missing a couple of End If statements

Regards

I'm a little confused by the Initialize code which is where there is/are an error(s).

You don't seem to have a clear understanding of how to use With ... End With.

This construct is where you have an object, for example, a cell, and you want to do something to several of its properties.

You could, for example, say:

With Range("D5")
    .FormulaR1C1 = "x"
    .Font.Bold = True
    .Font.Italic = True
    With .Font
        .Color = -16776961
        .TintAndShade = 0
    End With
End With

You seem to be using it with variables, though I have to admit I'm not 100% sure of what is going on.

Regards

There's several End Ifs & End Withs missing. You should go through the code & make sure that every IF & With statement is closed