Macro Programmering - Indsæt en "ligning" i en celle

Problemet består i at den ikke gider indsætte det statement som jeg vil have den til.

er der nogen af jer der hurtigt kan fortælle mig hvor den nægter at tage den når den med glæde tager en normal tekst-streng?

Sub indsæt()
'
' indsæt Makro
' Makro indspillet 10-10-2003 af Thomas Jørgensen
'

'
    Selection.EntireRow.Insert
    Range("A" & ActiveCell.Row & ":J" & ActiveCell.Row).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    celle = "H" & ActiveCell.Row
    Range(celle).Select
    argument = "HVIS(E"
    Cells(ActiveCell.Row, ActiveCell.Column) = argument
End Sub