overflow error 6.. the macro just stops any idea why?

[ste mac]

Hi, the code below adds 1 thru' 14 in column 8 as long as there is
a value in column 1, but it stops running at row 32767 with an overflow
error l need it to carry on down to past row 60,000 is my machine not
good enough? (I did not write the code)

thanks for any help

ste

Sub add1to14()
Application.ScreenUpdating = False
Dim mrow As Integer, mvalue As Integer
Range("a2").Select 'start at cell A1
mvalue = 1
Do Until ActiveCell.Value = ""
mrow = ActiveCell.Row
Cells(mrow, 8) = mvalue
mvalue = mvalue + 1
If mvalue > 14 Then mvalue = 1

ActiveCell.Offset(1, 0).Range("A1").Select
Loop
Range("A1").Select
Application.ScreenUpdating = True
End Sub

 

[JulieD]

Hi

a variable with a data type of "integer" will store numbers up to 32767
change
dim mrow as integer
to
dim mrow as long

and you might like to do the same for mvalue

Cheers
JulieD

 

[Chip Pearson]

Integers are signed numeric variables that can store numbers
between +/-32K. Use a Long instead of an Integer.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[ste mac]

Integers are signed numeric variables that can store numbers

between +/-32K. Use a Long instead of an Integer.

Many thanks to Julie and Chip, back up and running again

cheers to both

ste

 

[JulieD]

you're welcome

Many thanks to Julie and Chip, back up and running again

cheers to both

ste