Want to do a while-loop but get error message: run error '6' overflow

Hi.

This is the first code I wright in VBA and I don't have much experience in programming. I want to do a while-loop and I want the program to get data from cells in the excelsheet. I want it to get the data from cell with column E and row 1-7.

	C	D	E
1	h	=	870
2	L	=	740
3	ac	=	30
4	z	=	840
5	täta	=	48,6148
6	c1	=	880952,4
7	sigma	=	58,73016

Please Login or Register  to view this content.

When I trie to run it I get the error message:

run error '6'

overflow


Can anyone please help me?

Okej thank you for the answer mrice.

I got another error message when I changed and declared my variables as long.

I declared variables like below, otherwise the code is the same.

Sub sigma()
Dim h As Long
Dim L As Long
Dim a As Long
Dim hp As Long
Dim t As Long
Dim ac As Long
Dim z As Long
Dim täta As Long
Dim c1 As Long
Dim sigma As Long

Now I got the error message:

runtime error 438

object doesn't support this object or method

Any ideas what's wrong?