Guru do Excel e Power BI

Boa tarde amigos,
Encontrei um código VBA para bloquear as célulase só aceitarem Números.
Porém encontrei uma falha e não estou sabendo como arrumar...
Eu selecionei uma área e também uma célula separada que só vão aceitar números.
E existe uma célula que poderia aceitar qualquer caracter mas esta dando erro dizendo que só aceita números.
Alguém pode dar uma ajuda para me dizer onde estou erando por favor!

Segue o link para crédito da macro
https://pt.extendoffice.com/documents/e ... mbers.html

Boa tarde.
´Macro corrigida.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20191120
Dim xStrV As String
Dim xRg As Range
Dim xIRg As Range
Dim xFNum As Integer
On Error Resume Next
If Not mBol Then
Application.ScreenUpdating = False
Set xRg = Range("E5,D10:J32")
If Not Intersect(xRg, Target) Is Nothing Then
xStrV = Target.Value
If Not IsNumeric(xStrV) Then
mBol = True
Target.Value = vbNullString
MsgBox "Apenas números são permitidos neste campo." & vbNewLine & " " & vbNewLine & " Tente novamente!", , "Atenção!"
End If
Application.ScreenUpdating = True
End If
Else
mBol = False
End If
End Sub

Até
Foxtri

@Foxtri, Bom dia!
Obrigado por me ajudar!
Mesmo assim não funcionou... Aí eu inverti a ordem de ("E5,D10:J32") para ("D10:J32, E5") e funcionou. Não entendi mas deu certo
Muito Obrigado mais uma vez!

Salve, Jore.

Segue uma opção.

@osvaldomp, Muito oBrigado mestre Osvaldomp!