Run-time error '6' overflow
 

I keep getting that error when I use this code
Sub test()
Dim a As Integer
For a = 50000 To 50100
Range("J1, K28").Value = a
ActiveSheet.PrintOut
Next a
End Sub

but it has always worked perfectly when I used this
Sub test()
Dim a As Integer
For a = 20000 To 20100
Range("J1, K28").Value = a
ActiveSheet.PrintOut
Next a
End Sub

But I can't figure out which part is causing the problem

Run-time error '6' overflow
 

Suzy,

An integer can contain values between +/- 32K, and when you
attempt to store 50000 in the variable 'a', you are overflowing
the capacity of an integer. Change the variable to a Long type.
E.g.,

Dim a As Long

I



"Suzy" wrote in message
...
I keep getting that error when I use this code
Sub test()
Dim a As Integer
For a = 50000 To 50100
Range("J1, K28").Value = a
ActiveSheet.PrintOut
Next a
End Sub

but it has always worked perfectly when I used this
Sub test()
Dim a As Integer
For a = 20000 To 20100
Range("J1, K28").Value = a
ActiveSheet.PrintOut
Next a
End Sub

But I can't figure out which part is causing the problem

Run-time error '6' overflow
 

It works perfectly.
Greatly Appreciated
Suzy


-----Original Message-----
Suzy,

An integer can contain values between +/- 32K, and when
you
attempt to store 50000 in the variable 'a', you are
overflowing
the capacity of an integer. Change the variable to a
Long type.
E.g.,

Dim a As Long

I



"Suzy" wrote in
message
...
I keep getting that error when I use this code
Sub test()
Dim a As Integer
For a = 50000 To 50100
Range("J1, K28").Value = a
ActiveSheet.PrintOut
Next a
End Sub

but it has always worked perfectly when I used this
Sub test()
Dim a As Integer
For a = 20000 To 20100
Range("J1, K28").Value = a
ActiveSheet.PrintOut
Next a
End Sub

But I can't figure out which part is causing the
problem


.