Write a sub that requests a positive integer with an InputBox. Then use a For loop to sum up all the odd integers up to the input number [e.g. if the user enters 8, the program should add up 1, 3, 5, and 7 only]. Display the sum in a message box.  Once you get this part working, delete the message box, and change the sub so that it enters all the odd numbers in consecutive cells in Column A of the worksheet, starting with cell A1, and displays the sum, boldfaced, just below the last odd integer. Hints   Clear the contents of the worksheet to delete numbers from any previous run. To do this, use:         Range(“A1”).EntireColumn.Clear   Your For loop will need Step 2 so that it loops through 1, 3, 5, … etc. instead of the usual 1, 2, 3, …   Clear out your accumulator (Total) at the beginning   You would need an integer variable, say Row, to keep track of where you want to write the next number on the sheet. You can then write to the sheet by using:                                                                                                Range(“A1”).Offset(Row,0).Value   Every time you go through the loop you must update Row (after writing) by using: Row = Row + 1 Then, once you exit the loop, Row will also indicate where you should write the Total.

Write a sub that requests a positive integer with an InputBox. Then use a For loop to sum up all the odd integers up to the input number [e.g. if the user enters 8, the program should add up 1, 3, 5, and 7 only]. Display the sum in a message box.  Once you get this part working, delete the message box, and change the sub so that it enters all the odd numbers in consecutive cells in Column A of the worksheet, starting with cell A1, and displays the sum, boldfaced, just below the last odd integer.

Hints

1. Clear the contents of the worksheet to delete numbers from any previous run. To do this, use:         Range(“A1”).EntireColumn.Clear

1. Your For loop will need Step 2 so that it loops through 1, 3, 5, … etc. instead of the usual 1, 2, 3, …

1. Clear out your accumulator (Total) at the beginning

1. You would need an integer variable, say Row, to keep track of where you want to write the next number on the sheet. You can then write to the sheet by using:                                                                                                Range(“A1”).Offset(Row,0).Value

Every time you go through the loop you must update Row (after writing) by using: Row = Row + 1

Then, once you exit the loop, Row will also indicate where you should write the Total.

Your sheet would look like this (for an input number of 20):