listi.net

ConvertToValues - Coverts formulas to values, can be used to optimize

		Sub ConvertToValues()
		'Version: 1.000
		'Purpose: This routine will convert the sheet to all values
		'
		Cells.Select
		Selection.Copy
		Range("A1").Select
		Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
		:=False, Transpose:=False
		End Sub