Rounding problem

[Pearso]

I have a cell in excel that contains the value 0.13

when using the following VBA code it reads the value as zero.

Dim ActivHours As Integer
 
ActivHours = 0#
 
ActivHours = Sheets("Amanda").Cells(x, 9)

i.e. Sheets("Amanda").Cells(x, 9) is actualy 0.13
but ActivHours reads as 0 when going
MsgBox ActivHours

Does anyone know what the problem is with this code.

Thanks,

[RobDog888]

Thats because your declaring the variable as an Integer which will not have any decimal places, thus an Integer.
Change it to a Double and that should fix it.

Dim dblActivHours As Double
 
dblActivHours = 0#
 
dblActivHours = Sheets("Amanda").Cells(x, 9)

[Pearso]

Thank you

Where can i find out what all the decleration are
e.g. integer, double, long, string etc.

[RobDog888]

If you selected the option during installation of Excel, it should be in the help file in the VBA IDE. If you dont have it but you do have your
Excel (or Office) CD, then you can modify your installation by running it again and do a custom istall. Then select the help file for VBA.