Sleeper: File Size warning

[lior03]

hello
i have a huge workbook - 6,411,550 bytes.
i want excel to issue a warning when it reaches 7,500,000 bytes in size.

Sub sizere()
Dim x As String
x = ActiveWorkbook.Name
If filesize(x) >= 7500000 Then
MsgBox " this workbook is too big"
Else
MsgBox " watch it !!!!"
End If
End Sub

thanks

[gsouza]

I don't think you can do that

[Justinlabenne]

Using FileLen:

Option Explicit

Sub TooBigForYa()
    Dim lSize As Long
    Const lMax As Long = 7500000
lSize = FileLen(ThisWorkbook.FullName)
If lSize >= lMax Then
        MsgBox "Too gosh darn big!....", 16
    Else
        MsgBox "File size is currently " & lSize
    End If
End Sub

[gsouza]

guess i was wrong again, never say never

[Bob Phillips]

Using FileLen:

Be aware that this works on the saved file, not the file in memory. So as your workbook is growing, it won't be of much use to you. You will have to keep saving it, and then test the value.

[sheeeng]

Nothing is impossible.