Sub dural()
    Dim s As String, x As Variant
    s = "E9-SUMIF('Charge Sheet'!I:I,B9,'Charge Sheet'!H:H)"
    x = Evaluate(s)
End Sub