Функция вызова функции

Question

Я хочу сделать что-то вроде ниже. Почему очистка не работает?

Function bd() As Integer 
Dim a As Integer 
Call lol 
End Function 


Sub lol() 
Sheets("Risk Analytics").Range("A1", "F99999").Clear 
End Sub 

Answer 1

Для Range.Clear, начало и конец адреса ячеек разделены :. Нравится

Sub lol() 
    Sheets("Risk Analytics").Range("A1:F99999").Clear 
End Sub