Ian wrote:
Try this

With ActiveCell
.Value = 1 ' your X
.NumberFormat = "0.0"
End With
End Sub


That works great! Thanks...

Bill