Access Your Macro From Any Workbook (PERSONAL.XLSB) | Excel VBA Macro

Опубликовано: 09 Октябрь 2024
на канале: greggowaffles
1,497
22

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