Hello Stan,
That has a couple of it items I just added to my list of things to remember.
Thank you for your time,
Bryan

"Stan Scott" wrote in message
...
Bryan,

This should work for you:

Sub InsertColumnEnterFormula()
Dim myCell As Range
Set myCell = Cells.Find("AZoriginal")
With myCell
.Offset(, 1).EntireColumn.Insert
.Offset(2 - .Row, 1).FormulaR1C1 =
"=IF(RC[-1]<0,RC[-1]+360,RC[-1])"
End With
End Sub

<snip