Excel VBA Macro: Access Your Macro From Any Workbook (PERSONAL.XLSB)
💥Subscribe: / @greggowaffles
Code:
Sub worksheet_sizes_w_msgbox()
Dim temp_book As String
Dim ws As Worksheet
Dim message As String
Application.ScreenUpdating = False
temp_book = ThisWorkbook.Path & "\Temp.xls"
For Each ws In ActiveWorkbook.Worksheets
ws.Copy
ActiveWorkbook.SaveAs temp_book
ActiveWorkbook.Close savechanges:=False
message = message & ws.Name & ": " & _
FileLen(temp_book) / 1000 & " KB" & vbNewLine
Kill temp_book
Next
Application.ScreenUpdating = True
MsgBox message
End Sub
#excelmacro #excelvba