Определить, есть ли в вещественной матрице элемент, равный данному числу x

Option Base 1
 
Sub Q()
 
Dim MatArr()
Dim n As Long, m As Long, x As Long
 
n = InputBox("Ââåäèòå êîëè÷åñòâî ñòðîê n ")
m = InputBox("Ââåäèòå êîëè÷åñòâî ñòîëáöîâ m ")
x = InputBox("Ââåäèòå ÷èñëî äëÿ ñðàâíåíèÿ x ")
 
ReDim Preserve MatArr(1 To n, 1 To m)
 
For i = 1 To n
   For j = 1 To m
   
   MatArr(i, j) = Int(10 * Rnd())
   
   Next j
Next i
   
 
Set wsh = ActiveSheet
 
wsh.Cells.Clear
 
For i = 1 To n
   For j = 1 To m
   
   wsh.Cells(i, j) = MatArr(i, j)
   
   Next j
Next i
   
For i = 1 To n
   For j = 1 To m
 
   If MatArr(i, j) = x Then
      MsgBox "×èñëî íàéäåíî"
      MsgBox "Êîîðäèíàòû èñêîìîãî ÷èñëà. Ñòðîêà:" & " " & i & "còîëáåö:" & j
      t = 1
   End If
 
 
   Next j
Next i
 
If t <> 1 Then
   MsgBox "×èñëî íå íàéäåíî"
End If
 
End Sub

Sub nn()
n = Val(InputBox("Введите количество строк n ", , 5))
m = Val(InputBox("Введите количество столбцов m", , 5))
Set Rng = Range(Cells(1, 1), Cells(n, m))
Rng.NumberFormat = "0.0"
Rng.Formula = "=rand()*100"
Rng.Value = Rng.Value
x = Val(InputBox("Введите число для сравнения x "))
For Each cel In Rng
If cel - x < 0.00001 Then k = k + 1
Next
If k > 0 Then
MsgBox ("такое число есть")
Else
MsgBox ("такого числа нет")
End If
End Sub

If abs(cel - x) < 0.00001 Then k = k + 1

Sub nn()
Cells.Clear
Randomize
n = Val(InputBox("Введите количество строк n ", , 5))
m = Val(InputBox("Введите количество столбцов m", , 5))
Set Rng = Range(Cells(1, 1), Cells(n, m))
Rng.Formula = "=int(rand()*100)-50+(int(rand()*100)/100)"
Rng.Value = Rng.Value
x = Val(InputBox("Введите число для сравнения x ", , 4.55))
If Application.WorksheetFunction.CountIf(Rng, x) > 0 Then
MsgBox ("такое число есть")
Else
MsgBox ("такого числа нет")
End If
End Sub