Private
fMaxRow
As
Integer
Private fMaxCol As Integer
Private ExcelHWD As Excel.Application
fMaxRow = ExcelHWD.Selection.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Rows.Row
fMaxCol = ExcelHWD.Selection.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Columns.Column
Private fMaxCol As Integer
Private ExcelHWD As Excel.Application
fMaxRow = ExcelHWD.Selection.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Rows.Row
fMaxCol = ExcelHWD.Selection.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Columns.Column