Function CountShts()
CountShts = Worksheets.Count
End Function
Function FileSize()
FileSize = (FileLen(ActiveWorkbook.FullName) / 1024)
End Function
As far as I know there is no native function for this but here's something you can try.is there a formula i can use that tells me how large my file is and how many sheets I have in the file?
Public Function SheetCount() As String
Application.Volatile
SheetCount = "There are " & ThisWorkbook.Sheets.Count & " sheets in this workbook."
End Function
Public Function FileSize() As String
Application.Volatile
FileSize = "The file size of this workbook is " & FileLen(ActiveWorkbook.FullName) / 1024 & " KBytes."
End Function