Using IsNumeric with If and For functions

Hello All,

I'm sure this is very simple but i'm writing to try and further my knowledge. I've found a way to do this with a sumif() formula in the actual worksheet but i like to keep everything in VBA.

Anyway, I'm trying to sum a column of values, but some of the cells in that column have words and sentences instead of numbers, so i need to sum only the numerical values in the column.

What i've come up with so far is

Sub sum()

Dim total As Boolean
Dim value As Integer

For Job = 1 To 360

value = Worksheets("2012's").Cells(4, 1 + Job)

    If IsNumeric("value") = True Then

    total = total + value

    End If

Next Job

Worksheets("2012's").Cells(4, 365) = total

End Sub

Any help would be greatly appreciated.

Thank you all,

DarkF1ame

replace two lines:

value = Worksheets("2012's").Cells(4, 1 + Job).value

    If worksheetfunction.IsNumeric(value) = True Then

I apologize. I didn't check my code before sending.
change

If worksheetfunction.IsNumeric(value) = True Then

to

If WorksheetFunction.IsNumber(value) = True Then

try this...

Option Explicit
Private Sub Worksheet_activate()

Dim lTotal As Long
Dim iJob As Integer
Dim vValue As Variant

For iJob = 1 To 360

     vValue = Worksheets("2012's").Cells(1 + iJob, 4).value

    lTotal = lTotal + val(vValue)

Next iJob

Worksheets("2012's").Cells(365, 4) = lTotal

End Sub

The formula in E367 could be replaced with just =SUM(E2:E361)

Sum ignores text and numbers stored as text.