I have this code:

Sub InsertValuesForMids()
Application.ScreenUpdating = False

sCurrentYear = CStr(Year(Now))

Dim MIDS As Range

ThisWorkbook.Worksheets(sCurrentYear).Activate
With Workbooks("Weekly Surveys.xls").Worksheets(sCurrentYear)

Range("A4").End(xlToRight).Offset(0, 1).Select
Set MIDS = ActiveCell
' Add 4 values together then divide by 4 to get the average
MIDS.Offset(0, 1).Value = iSurveyed / 4
' Set the Average value (above) as the new value
iSurveyed = MIDS.Offset(0, 1).Value

MIDS.Offset(1, 1).Value = iPoling / 4
MIDS.Offset(2, 1).NumberFormat = "0.00%"
MIDS.Offset(2, 1).Value = (iPoling / iSurveyed) * 100

Where iSurveyed & iPoling are both integers.
iSurveyed = 378
iPoling = 113

The probs i am having is that using the :

(iPoling / iSurveyed) * 100

I hoped this would give me the percentage. Which when calculated on a calulator gives 29.83%.
But when used as in the above code i get 11931.22%.

This obviously is hopelessly wrong.

Any ideas please.

Also what numberformat can i use to round up and with NO decimal places. Using the Round method changed other values in other cells.
eg:

MIDS.Offset(0, 1).Value = Round(iSurveyed / 4, 0)

TIA