Ошибка при объявлении переменной

[Poltava]

Добрый день в приложении файл в нем три макроса
1)Рабочий
2)Нерабочий
3)Очистка форматов
Макрос рабочий от макроса нерабочий отличается только объявлением переменных. Но после этого он напрочь отказывается работать. В чем причина для меня пока загадка. Третий макрос служит для отмены действия макросов (то есть убирает поставленную ранее рабочим макросом заливку)
Помогите разобраться где я напартачил

[RAN]

Здесь

Код Выделить Развернуть

Function LastCol(RowNumber As Integer) As Integer
и здесь

Код Выделить Развернуть

Dim LCol As String
    Dim LRow As Long
    LCol = LastCol(9) 'Получаем последнюю колонку

[Poltava]

Да а ларчик просто открывался. Спасибо а то как то уже глаза за мылились и не подумал туда глянуть. Точнее смотрел но в упор невидел