Clearing cells within an Array - Run-time error 13 (Type mismatch)

Hello,

I created some code to strip words out of an array which worked.
After adaption to remove erros (i.e. "#Div/0!") it returns a Run-time error 13: Type mismatch
Can anyone help~?

____________________

Sub DivZeroClear()

Dim Info()

Info() = Range("M2:CZ160")

Dim countCol As Integer
Dim countRow As Integer

countCol = 1
countRow = 1

For countRow = 1 To 159
For countCol = 1 To 92
If Info(countRow, countCol) = "#Div/0!" Then
Info(countRow, countCol) = ""
End If
Next
Next

Range("M2:CZ160") = Info()

End Sub

Hello Trebor76,

Thanks for the help.

With regard to the issue: I need to ensure no additional zeros are added (as I was also performing a percentile analysis on the range of cells).

I had another go and came up with this (see below). I think it works now



_________________________
Sub ClearErrors()
'
' ClearErrors macro
'
Dim Info()
Info() = Range("M2:CZ160")

Dim countCol As Integer
Dim countRow As Integer
For countRow = 1 To 159
For countCol = 1 To 92
i = Info(countRow, countCol)
If IsError(i) = True Then
Info(countRow, countCol) = ""
End If
Next

Next

Range("M2:CZ160") = Info()

End Sub