VBA Formula in table

[DudethatsSweet]

Hi!

Im trying to get this formula to work. It calculates the total hours from start time to end time and converts it to numbers instead of time.
When executed it gives a runtime 1004 error. When i copy the formula by hand it will work just fine. Can someone please help me out?
Below the VBA code. Thanks in advance!

Sub CalculateTotalHours()
Dim tbl As ListObject
Dim sFormula As String


Set tbl = Sheets("Data").ListObjects("DataTable")

sFormula = "=IF([@[End Time]]<[@[Start Time]];(([@[End Time]]-[@[Start Time]]+24)*24);([@[End Time]]-[@[Start Time]])*24)"

tbl.ListColumns(").DataBodyRange.Cells(1).Formula = sFormula
End Sub

 

[DudethatsSweet]

Sorry, im new and dont know how to edit the post. Made a typo at the last line of the code

tbl.ListColumns("Total Hours").DataBodyRange.Cells(1).Formula = sFormula

 

[Norie]

Try replacing the semi colons ( with commas (,).

Sub CalculateTotalHours()
Dim tbl As ListObject
Dim sFormula As String

    Set tbl = Sheets("Data").ListObjects("DataTable")

    sFormula = "=IF([@[End Time]]<[@[Start Time]],(([@[End Time]]-[@[Start Time]]+24)*24),([@[End Time]]-[@[Start Time]])*24)" 

    tbl.ListColumns("Total Hours).DataBodyRange.Cells(1).Formula = sFormula 

End Sub

 

[DudethatsSweet]

Thanks for the quick reply! Your solution works perfectly! Only had to add the " sign at the end of Total Hours