Bulk change cells to Array Formula

[jthol]

I have a sheet with several hundred cells which are filled with array
forumlas. The problem is that none of the formulas have been entered
by using CRTL-SHIFT-ENTER. Does anyone know of a VBA function which
can be used to set all of these cells to Array forumlas?

Thanks,
Justin

 

[Guest]

Here is a macro to help you.

Sub ConvertToArray()
Dim myrange As Range, thiscell As Range
Set myrange = Application.InputBox("Select range", , , , , , , 8)
For Each thiscell In myrange
thiscell.FormulaArray = thiscell.Formula
Next thiscell
End Sub

You just need to paste that text into a module in your workbook.
Press Alt-F11 for the VB editor, do insert > module and paste it in there.

Then go back to excel, do tools macros and run the one called ConvertToArray.