Hi

Thanks for your reply, but it still does not work.

Here is the full macro:

Sub XXXX()

Dim X As Integer
Dim Y As Integer
Dim Z As Integer
Dim ZY As Integer

Let X = Range("A1").Value
Y = -15
ZY = 0
For Counts = 1 To X
Y = Y - 5
Z = 0
Application.Goto Reference:="ProjTotal04"
ActiveCell.Offset(0, Y).Select
Z = ActiveCell.Value
ZY = ZY + Z
Application.Goto Reference:="ProjTotal04"
ActiveCell.Value = ZY
Next
End Sub

Macro alwway stops at Z = ActiveCell.Value

Please help.

Thanks

Sham

-----Original Message-----
Z = ActiveCell.Value

--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Shamsul Islam"
wrote in message
...
Hi

I want a variable value, to be the value of the
activecell.

I've tried the following:

Dim Z As Integer
Z = 0
Z = ActiveCell.Range("A1").Value

The code doesn't work. Please advise.

Thanks

Sham


.