Overflow error with row count

[kestefon]

I have a spreadsheet with 70,000 rows of data. It's well within Excel's 1 million row limit (I'm using Excel 2013), but for some reason I'm getting an overflow error in VBA when I try to count those rows. Any ideas or ways to get around this?

Sub rowCount()

Dim rowCounter As Integer

rowCounter = ThisWorkbook.Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1
MsgBox rowCounter

[sktneer]

Change the line of code

From

Dim rowCounter As Integer

To

Dim rowCounter As Long

[6StringJazzer]

Declare rowCounter as Long instead of Integer. Integer maxes out at 32,767.