а сколько хотите?)

Хотя нет, так не пойдёт... сумма-то равна нулю.

рублей за 200 и сам выучу VBA:))))))

{quote}{login=}{date=21.12.2011 01:43}{thema=}{post}рублей за 200 и сам выучу VBA:)))))){/post}{/quote}  
 
Учи, мы подождём )

на, не приставай к людям )  
 
 
Sub Test()  
Dim iVal1 As Long, iVal2 As Long, i As Long, iSum As Long  
 
   iVal1 = Application.InputBox("Введите первое число", "Отрицательное число", -25, , , , , 1)  
   iVal2 = Application.InputBox("Введите первое число", "Отрицательное число", 25, , , , , 1)  
 
   For i = iVal1 To iVal2  
       If i Mod 2 = 0 Then  
           Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = i  
       iSum = iSum + i  
       End If  
   Next i  
   MsgBox "Сумма чётных чисел равна: " & iSum, vbInformation, ""  
End Sub

в строке    
iVal2 = Application.InputBox("Введите первое число", "Отрицательное число", 25, , , , , 1)  
 
замените выражение "отрицательное число" на "Положительное число