the line looks like ther is nothing wrong with it

do you mind if you try this code what happens
If ActiveSheet.Range(ACell).Value <= 0 Then
ActiveSheet.Rows(CStr(XCell) & ":" &
CStr(XCell)).RowHeight = ZH
end if

does it make the row height 12.5/0 if it does then this it cannot
define/find out wether or not this is true
ActiveSheet.Rows(CStr(XCell) & ":" & CStr(XCell)).RowHeight = 0
try this

ActiveSheet.Rows("" +CStr(XCell) + "":"" + CStr(XCell)+ "").RowHeight =
0

or this (cannot remember which one it is lol)

ActiveSheet.Rows(" +CStr(XCell) + "":"" + CStr(XCell)+ ").RowHeight = 0


if the code up above does not work then it cannot define CSTr and
Xcell

i noticed your code never actually gives them a "starting value" try
giving them a value
CSTr = ...
XCell = ...

or defining them e.g CSTr as .... abd XCell as ... at the start of your
macro


hope this finally sorts it out


--
Zygan
------------------------------------------------------------------------
Zygan's Profile: http://www.excelforum.com/member.php...o&userid=34423
View this thread: http://www.excelforum.com/showthread...hreadid=548520