Sub macro_overflow() Dim l As Integer l = 255 * 256 'overflow error End Sub Sub macro_no_overflow() Dim l As Long l = 255& * 256 'now it works End Sub