Help with Macro, want to chage to run on active cell instead of whole page

[Zoso4]

Hi, I am still kind of new to using VBA code and my editing skills are very novice at the moment.
How would I change this Code to run on only the active cell selected and that is all, instead of the whole page?


Sub AddIFERROR()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim xCell As Range
Dim xFormula As String
For Each xCell In Selection
If xCell.HasFormula Then
xFormula = Right(xCell.Formula, Len(xCell.Formula) - 1)
xCell.Formula = "=IFERROR(" & xFormula & ","""")"
End If
Next xCell
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[Zoso4]

Or Would it be better to add a few more lines to the existing code to check if the IFERROR( AND ,"") Is already in the cell and IF not then do not add. That Way I could add a bunch of new data at a time then run an over all sweep to fill in the IFERROR( AND ,"") to the cells that do not have it.

 

[Zoso4]

*Bump

 

[gsistek]

It should only apply to the selected cell(s). Not the active cell, but the selected cell(s) (those that are highlighted). When I wrote this macro, I did not need it to detect whether IFERROR already existed, but I can certainly add that in.

 

[gsistek]

Sub AddIFERROR()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim xCell As Range
    Dim xFormula As String
    For Each xCell In Selection
    If xCell.HasFormula Then
        If Right(xCell.Formula, 8) <> "=IFERROR" Then
            xFormula = Right(xCell.Formula, Len(xCell.Formula) - 1)
            xCell.Formula = "=IFERROR(" & xFormula & ","""")"
        End If
    End If
    Next xCell
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

 

[gsistek]

It just dawned on me. I used RIGHT where I should have used LEFT. Sorry about that. Time for more coffee I think...
...

Sub AddIFERROR()
     Application.ScreenUpdating = False
     Application.Calculation = xlCalculationManual
     Dim xCell As Range
     Dim xFormula As String
     For Each xCell In Selection
        If xCell.HasFormula Then
           If Left(xCell.Formula, 8) <> "=IFERROR" Then
               xFormula = Right(xCell.Formula, Len(xCell.Formula) - 1)
                xCell.Formula = "=IFERROR(" & xFormula & ","""")"
            End If
        End If
     Next xCell
     Application.Calculation = xlCalculationAutomatic
     Application.ScreenUpdating = True
End Sub

</PRE>

 

[Zoso4]

Thank you for the reply Gsistek, I will try this out when I am adding in new data from my pivot table tomorrow. Thanks again!