Norman, worked like a champ. Thank you

Greg
Norman Jones wrote:
> Hi Greg,
>
> Try:
>
> '=============>>
> Public Sub Tester()
> Dim SH As Worksheet
> Dim rng As Range
> Dim rCell As Range
>
> Set SH = ActiveSheet
> On Error Resume Next
> Set rng = Sh.Cells.SpecialCells(xlCellTypeFormulas, 23)
> On Error GoTo 0
>
> If Not rng Is Nothing Then
> For Each rCell In rng.Cells
> With rCell
> .Select
> If Left(.Formula, 3) = "=IF" Then
> .Value = .Value
> End If
> End With
> Next rCell
> End If
> End Sub
> '<<=============
>
>
> ---
> Regards,
> Norman
>
>
>
> "GregR" <gregrivet@gmail.com> wrote in message
> news:1152140630.194774.47790@m73g2000cwd.googlegroups.com...
> >I have a worksheet with various formulas. I want to convert only the
> > "IF" formulas to their values. Is it possible and if so how? TIA
> >
> > Greg
> >