Ok so i have entered that into my code as follows:

Public Sub SumFirstN_Numbers()
Dim i As Integer, count As Integer
Dim nVariable As Integer

nVariable = InputBox("Choose a number other than 1. ")

count = 0

For i = 1 To 10
    count = count + 1
Next i

count = Evaluate("SUM(ROW(1:" & nVariable & "))")

MsgBox ("The sum of the numbers from 1 to " & nVariable & " is. " & count & " .")

End Sub
Ok this seems to work but am i right in assuming that it does not use the for loop?

If so how can you get the same result but using the for loop which i think was the aim of the exercise that i was given.

Thanks for all your help so far.