For i = # to # code issue/question

[OleMiss2010]

This is the very beginning of a code I have started. My error comes when I am trying to put the value for IssueNum in the correct cell. That value Should go in Column A with the first instance in Row 2, the second instance in Row 6, the third in Row 10, etc. This is where I am getting an error. Any advice?

[pre]

Sub Issues()
Dim IssueNum As Integer
Dim NumIssues As Integer

NumIssues = Application.InputBox("How many issues need to be addressed?")
For IssueNum = 1 To NumIssues
If IssueNum = 1 Then
Cells("2", "1").Value = IssueNum
Else
Cells(0.25 * IssueNum - 2, "1").Value = IssueNum
End If
IssueSub = Application.InputBox("For issue " & IssueNum & ", what is the subject of this issue?")
Next IssueNum

End Sub

[/pre]

 

[OleMiss2010]

Okay I appear to have solved my own problem by removing the ""'s within the ()'s after Cells in the first case, but I still get an error for cases when the IssueNum is greater than 1.

 

[OleMiss2010]

Nevermind. It was a math error. I worked into an equation backwards. That was incredibly foolish of me.