MsgBox ActiveCell.NumberFormat
Range("I20").SelectActiveCell.FormulaR1C1 = "123123rr323213"Range("I20").SelectSelection.NumberFormatLocal = "@"