Attribute VB_Name = "CheckLastRow" Option Explicit Function run(row as integer) Dim last_check_row as integer Dim last_row as boolean End Function