Sub InsertIFERROR()
*** Dim R As Range
*** For Each R In Selection.SpecialCells(xlCellTypeFormulas)
******* R.Formula = "=IFERROR(" & Mid(R.Formula, 2) & ",""0"")"
*** Next R
End Sub
Sub InsertIFERROR()
*** Dim R As Range
*** For Each R In Selection.SpecialCells(xlCellTypeFormulas)
******* R.Formula = "=IFERROR(" & Mid(R.Formula, 2) & ",""0"")"
*** Next R
End Sub
Welcome to the forum!
Unfortunately your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.
Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.
Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here
(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)
Ali
Enthusiastic self-taught user of MS Excel who's always learning!
Don't forget to say "thank you" in your thread to anyone who has offered you help. It's a universal courtesy.
You can reward them by clicking on * Add Reputation below their user name on the left, if you wish.
NB: as a Moderator, I never accept friendship requests.
Forum Rules (updated August 2023): please read them here.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks