View Single Post
  #6   Report Post  
modzsi modzsi is offline
Junior Member
 
Posts: 1
Question

Quote:
Originally Posted by JLatham View Post
STEP 1: MOST IMPORTANT -- make a copy of the troublesome workbook and test
this in the copy, not the original!

Using the copy of the workbook, put this code into a regular code module and
run it. It may take a while depending on the number of sheets in the
workbook and the number of cells used on each one, because it's going to
examine every cell on every sheet that was ever used!

Here's the code: to put it into the workbook, open the workbook, then press
[Alt]+[F11] to enter the VB Editor (VBE). Copy and paste the code into the
module. At that point you can actually place the cursor anywhere within the
code and just press the [F5] key to run it right then and there.

Sub KillArrayFormulas()
Dim anySheet As Worksheet
Dim sheetUsedRange As Range
Dim anyCell As Range

For Each anySheet In ThisWorkbook.Worksheets
Set sheetUsedRange = anySheet.UsedRange
For Each anyCell In sheetUsedRange
If anyCell.HasFormula Then
anyCell.Formula = anyCell.Formula
End If
Next
Next
'some housekeeping
Set sheetUsedRange = Nothing
Set anySheet=Nothing
MsgBox"Formula Rewrites Completed"
End Sub
Hey!

I would need the opposite of this but cant seem to figure out how that could be done. I have a huge range and need to convert all the formulas to array formulas to get the desire results there.

Thanks in advance!