Private Sub CalculateCells() Dim cellcount As Double Dim Sheet cellcount = 0 For Each Sheet In ActiveWorkbook.Worksheets cellcount = cellcount + Sheet.UsedRange.Cells.Count Next Dim message As StringDim message As String message = "Total cells in workbook: " & vbCrLf & FormatNumber(Round(cellcount), 0) & vbCrLf message = message & "Approximate memory required (at 400 bytes per cell): " & vbCrLf message = message & FormatNumber(Round(cellcount * 400), 0) & " bytes " & vbCrLf message = message & Math.Round(((cellcount / 1024 / 1024 / 1024) * 400), 2) & " gigabytes" MsgBox (message) End Sub |