특정 msgbox가 표시되지 않습니다

한 번에 여러 개의 msgbox를 출력하려고합니다. 그중 하나만 출력하려고 할 때 아무 것도 발생하지 않습니다. 작동하지 않는 것만 보여 드리겠습니다. 셀 값이 정수이고 6과 72 사이가 아닌 경우이 msgbox 만 표시하고 싶습니다.

5. 글꼴 크기는 6에서 72 사이의 정수 여야합니다.

6.Paragraph Spacing Before는 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

라인을 변경해야합니다.

If Not cellVal = (6 < 72) Then

에

If cellVal < 6 Or cellVal > 72 Then

동일한 작업을 수행하십시오 cellVal2.