Hi,

Try:

'=============
Public Sub Tester()
Dim rng As Range
Dim rCell As Range
Const col As String = "A" '<<==== CHANGE

Set rng = Intersect(ActiveSheet.UsedRange, _
Columns(col))

For Each rCell In rng.Cells
With rCell
If Len(.Value) 25 Then
.Value = Left(.Value, 25)
End If
End With
Next rCell

End Sub
'<<=============

---
Regards,
Norman


"Macro to truncate column" <Macro to truncate
wrote in message
...
I have been asked to write a macro in visual basic to truncate a specific
column in excel not to exceed 25 characters.