Ограничение размера файла для макросов VBA в Excel?

Question

Существует ли ограничение по размеру, из-за которого макросы могут не работать несколько раз?Я на 450KB до 460KB после ввода данных.Проблема иногда в том, что отметка времени и даты не работает.У меня одинаковая форма на 7 разных компьютерах, и это происходит случайно.Не уверен, что это ошибка пользователя или кода, но подумал, что я задаю вопрос об ограничении размера.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim CC As Range
Dim CB As Range

Application.EnableEvents = False
 If Not Intersect(Range("C16:C101"), Target) Is Nothing Then
 For Each CC In Intersect(Range("C16:C101"), Target)
    If CC.Value <> "" Then
        CC.Offset(, -2).Value = Date & " "
        CC.Offset(, -2).NumberFormat = "mm/dd/yy"
    End If
 Next CC
 End If
Application.EnableEvents = True

Application.EnableEvents = False
 If Not Intersect(Range("C16:C101"), Target) Is Nothing Then
 For Each CC In Intersect(Range("C16:C101"), Target)
    If CC.Value <> "" Then
        CC.Offset(, -1).Value = Time & " "
        CC.Offset(, -1).NumberFormat = "hh:mm"
    End If
 Next CC
 End If
Application.EnableEvents = True

Application.EnableEvents = False
 If Not Intersect(Range("x16:x101"), Target) Is Nothing Then
 For Each CC In Intersect(Range("x16:x101"), Target)
    If CC.Value <> "" Then
        CC.Offset(, 1).Value = Date & " " & Time
        CC.Offset(, 1).NumberFormat = "mm/dd/yy hh:mm"
    End If
 Next CC
 End If
Application.EnableEvents = True

Application.EnableEvents = False
 If Not Intersect(Range("AC16:AC101"), Target) Is Nothing Then
 For Each CB In Intersect(Range("AC16:AC101"), Target)
    If CB.Value <> "" Then
        CB.Offset(, -1).Value = Date & " "
        CB.Offset(, -1).NumberFormat = "mm/dd/yy"
    End If
 Next CB
 End If
Application.EnableEvents = True

Application.EnableEvents = False
  If Not Intersect(Range("Ah16:Ah101"), Target) Is Nothing Then
  For Each CB In Intersect(Range("Ah16:Ah101"), Target)
    If CB.Value <> "" Then
        CB.Offset(, -1).Value = Date & " " & Time
        CB.Offset(, -1).NumberFormat = "mm/dd/yy hh:mm:ss"
    End If
  Next CB
  End If
Application.EnableEvents = True

Application.EnableEvents = False
 If Not Intersect(Range("Am16:Am101"), Target) Is Nothing Then
 For Each CB In Intersect(Range("Am16:Am101"), Target)
    If CB.Value <> "" Then
        CB.Offset(, -1).Value = Date & " " & Time
        CB.Offset(, -1).NumberFormat = "mm/dd/yy hh:mm:ss"
    End If
 Next CB
 End If
Application.EnableEvents = True

End Sub