This macros just received works but does not seem to stop
the looping until it returs the error "MS Visual Basic
400".
I would appreciate a bit of tweaking.

i = 1
Do
Target = Range("D" & i)
TargetLength = Len(Target)
CharLeft = Left(Target, 1)
CharRight = Right(Target, 1)

If CharLeft = ";" Then Target = Right(Target, Len
(Target) - 1)
If CharRight = ";" Then Target = Left(Target, Len
(Target) - 1)

Range("D" & i) = Target
i = i + 1
Loop