Dele en celle

Jeg lukker spørgsmålet

Indtastning i kolonne A
B1 =Venstre(A1;30)
C1 =Midt(A1;31;100) Ret 100 til det maksimale antal tegn kolonne A kan indholde.
/Be_Nice

Hej det er kolonne B jeg skal dele så halvdelen komme i kolonne C
P

Hvis du vil gemme den originale værdi, så er du nødt til at have værdien i én celle, og så dele den i 2 andre celler iht. ovenstående.
Det kan sikkert laves via en VBA løsning, hvor værdierne i kolonne B laves om til hhv. B og resten i C - men jeg er ikke så staærk i VBA.
/Be_Nice

Stå i den celle, der skal deles ogf afspil denne makro:

Sub DelCelle()
    Dim tx As String
    tx = ActiveCell.Value
    ActiveCell.Value = Left(tx, 30)
    ActiveCell.Offset(0, 1).Value = Mid(tx, 31, Len(tx))
End Sub

Den melder fejl i linien Sub Del Celle??

DelCelle skal i et ord.