Sub ファイルのサイズが◯◯MB以上の場合処理をスキップする()

    対象ファイル = "C:\sample.xlsm"
    
    '【参考】B = Byte(バイト)
    
    Bサイズ = FileLen(対象ファイル) 'B
    KBサイズ = FileLen(対象ファイル) / 1000 'B→KB に変換
    MBサイズ = FileLen(対象ファイル) / 1000 / 1000 'B→KB→MB に変換
    
    If MBサイズ > 10 Then
        GoTo 十MB以上スキップ
    End If

    '通常の処理を記載

十MB以上スキップ:

End Sub