LEFT Function in Macro
activecell.Value=left(activecell.Value,4)
HTH
Paul
--------------------------------------------------------------------------------------------------------------
Be advised to back up your WorkBook before attempting to make changes.
--------------------------------------------------------------------------------------------------------------
|