Don't if I am blind or just can't see. Something has happened and the
valadtrion is not acting as it did. I moved the paste to see if that was it
get error

..Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
Operator:=xlLessEqual, Formula1:="232"

this line is yellowed out on debug. will enclose complete module. Have left
in my changes till I get it right. You can see the(').
Thanks in Advance
heres the procedure

Option Explicit
Dim cellLength As Integer
'Puts descripition into cell shrink to fit cell
Sub active_offset()
Worksheets("desc").Select
Range("A2").Select
cellLength = Len(ActiveCell)
If msgbox(cellLength & vbNewLine & "If Number above over 232 click Yes As
will not show in print out", _
vbYesNo) = vbYes Then
Exit Sub
Else
Dim Data As Worksheet
Range("a2").Select
Selection.Copy
Sheets("Data").Select
'ActiveSheet.Paste
With Selection.Validation
.Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
Operator:=xlLessEqual, Formula1:="232"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ActiveSheet.Paste
' Range("B2").Select
End If
Worksheets("Desc").Select
Range("A2").Select
Selection.ClearContents
Worksheets("Data").Select
Range("A4").Select
' End If
End Sub