Thanks Tom,
Yours and Nigel's reply (a little bit down) solves the problem perfectly.
Ragards
J_J

"Tom Ogilvy" wrote in message
...
With ActiveCell.Characters(1, Sheets("Sheet1").Range("H1").Value).Font

With ActiveCell.Characters(1, _
Sheets("Sheet1").Range("H" & ActiveCell.Row).Value).Font


--
Regards,
Tom Ogilvy



"J_J" wrote in message
...
Hi,
In the below code Can we also assign a variable to the referance cell
position(s) so that when we
increment the cell position in a loopy manner the plotted persentage
like
figures (displayed in cells A1, A2,....,A10) will reflect values which
are
present in H1, H2,.....,H20 respectively?. I hope I maneged to ask the
question properly.
J_J



Sub blue()
ActiveCell.FormulaR1C1 = _


"IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIIIIIIIIII
IIIIIIIIIIIIIIIIIIIIIIIII"
With ActiveCell.Characters(1,
Sheets("Sheet1").Range("H1").Value).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.ColorIndex = 5
End With
End Sub

Sub normal()
ActiveCell.FormulaR1C1 = _


"IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIIIIIIIIII
IIIIIIIIIIIIIIIIIIIIIIIII"
With ActiveCell.Characters(Sheets("Sheet1").Range("H1") .Value + 1,
100).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.ColorIndex = 1
End With
End Sub