S = Range("C:C").Find(Num, , , xlWhole)
If Not S Is Nothing Then
        a = S.Row
        b = Cells(a, 5).Value
            If Val(Pl.Value) <> b Then   'Проверка соответствия Pl значениям в других строках
            MsgBox "Значение неверное"
            Exit Sub
            Else
            'MsgBox "Значение нормальное"
            End If
        End If

S = Range("C:C").Find(Num)
If Not S Is Nothing Then
        a = S.Row
        b = Cells(a, 5).Value
            If Val(Pl.Value) <> b Then   'Проверка соответствия Pl значениям в других строках
            MsgBox "Значение неверное" 
            Exit Sub
            Else
            'MsgBox "Значение нормальное"
            End If
        End If

Private Sub UserForm_Initialize()
'Список значений в combobox 
'ComboBoxcod.List = ActiveWorkbook.Worksheets("Книга1").Range("A4", Cells(Rows.Count, 1).End(xlUp)).Select
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'Последняя строка по столбцу 
Set x = Range(Cells(4, 1), Cells(LastRow, 1))
ComboBox1.List = x.Value
End Sub

EnPrivate Sub CommandButton1_Click()

End Sub

Private Sub CommandButton3_Click()
Workbooks.Add
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\Новый отчет " & Format(Now(), "DD MMM YYYY hh-mm-ss AMPM") & ".xlsx")

Workbooks("Книга1.xlsm").Activate