Конкретное сообщение не отображается

Question

Я пытаюсь вывести несколько msgbox одновременно, что я и сделал. Купить, когда я попытался вывести только один из них, ничего не происходит: я покажу вам только те, которые не работают. Я хочу показать только эти msgboxes, если значение ячейки является целым числом и не между 6 и 72:

5.Размер шрифта должен быть целым числом от 6 до 72

6.Расстояние между абзацами перед должно быть целым числом от 6 до 72

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Dim cell As Range
   Dim cell2 As Range
   Dim i As Integer
   Dim cellVal As Integer
   Dim cellVal2 As Integer
   Dim sCellVal As String
   Dim a As Variant     
   Dim rngcheck As Range
   Dim rngcheck2 As Range
   sCellVal = Range("A2").Value
   cellVal = Range("B3").Value
   cellVal2 = Range("B4").Value

    If Not cellVal = (6 < 72) Then
         Cancel = True
         mess = mess & vbCrLf & "Font Size must be an integer from 6 till 72"
    End If

    If Not cellVal2 = (6 < 72) Then
         Cancel = True
         mess = mess & vbCrLf & "Paragraph Spacing Before must be an integer from 6 till 72"
    End If

    If mess <> "" Then MsgBox mess

End Sub

Answer 1

Вам нужно изменить строку:

If Not cellVal = (6 < 72) Then

в

If cellVal < 6 Or cellVal > 72 Then

Сделайте то же самое для cellVal2 .