The Integer data type is the most efficient way of handling numbers from -32,768 to 32,767
Sub intDemo() Dim intMyVar As Integer For intMyVar = 1 To 300 'repeat actions Next intMyVar End Sub