ループには問題がないようですが?Private Sub Command1_Click() Dim i As Integer Dim H As Long Dim j As Integer H = 1 For i = 1 To 4 For j = H To H + 6 Debug.Print j Next j Next iEnd Sub