Attribute VB_Name = "GetLastCheckRow" Function run(first_row As Integer) getLastCheckRow = first_row + 10 End Function