Does,
Range(ActiveCell,ActiveCell.Offset(ActiveCell.Value,0)).Select
Do it.
If you just want to highlight it, you may not need to selct it.
Range(ActiveCell,ActiveCell.Offset(ActiveCell.Value,0)).Interior.colorindex = 6
would apply a coloring to the range.
AC