Remove last 4 characters from cell string?

Hi all,

I have a column of values, though some of these cells contain 4 extra characters (AABD) at the end and i want to remove when i run my macro, my problem being, with Mid / Left / Right i cant seem to specify as the cell lengths are all different.

So say:

    If Len(strCell) > 0 Then
        If Right(strCell, 4) = "####" Then
           'remove last 4 characters from strCell
        End If
    End If

Many Thanks