Public Function AutoStart() As String
Dim myRange     As Range
On Error Resume Next
    
    ' Скрыть строки с 5 по 8
    Set myRange = Rows("5:8")
    myRange.EntireRow.Hidden = True
    ' Окрасить ячейки с 10 по 14
    Set myRange = Rows("10:14")
    myRange.Interior.ColorIndex =  24 
        
    If Err.Number <>  0  Then
        myRange.Cells( 1 ,  1 ) = "Произошла следующая ошибка - " & Err.Description
    Else
        myRange.Cells( 1 ,  1 ) = "Я отработал без ошибок!"
    End If
    
End Function

Public Function ufMyTes() as Boolean
Dim xlsApp          As Excel.Application
Dim xlsBook         As Excel.Workbook

    Set xlsApp = New Excel.Application
    Set xlsBook = xlsApp.Workbooks.Add("C:\test.xls")

    xlsApp.Evaluate "CALL AutoStart()"

    xlsApp.Visible = True

    Set xlsBook = Nothing
    Set xlsApp = Nothing
end function

xlsApp.Run "AutoStart"