У вас может быть функция с переменной Out of Range
Если вы использовали целочисленную переменную и переменная имеет значение больше
целочисленный диапазон, то показывает ошибку.
Пояснение:
Dim IntVar AS Integer
IntVar = 50000
Тогда должна отображаться ошибка переполнения
Таким образом, вы можете использовать следующий код вместо данного кода
Dim LongVar As Long
longVar = 50000