Uma msgbox específica não está aparecendo

Question

Estou tentando produzir várias msgboxes de uma só vez, o que fiz. Compre quando eu tentei produzir apenas um deles, nada acontece: vou mostrar apenas aqueles que não estão funcionando. Eu quero mostrar apenas estas msgboxes se o valor da célula for inteiro e não estiver entre 6 e 72:

5.O tamanho do campo deve ser um inteiro entre 6 e 72

6.Paragraph Spacing Before deve ser um número inteiro de 6 até 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

Você precisa alterar a linha:

If Not cellVal = (6 < 72) Then

para

If cellVal < 6 Or cellVal > 72 Then

Faça o mesmo para cellVal2 .