[vba]maxrow = xlSheet.Range("A" & Rows.Count).End(xlup).Row[/vba]