Its a excel thing it can only do 255 other wise it get trancated
BUT after 3 hours of hunting around the net and thinking out side the square
It a bit long winded but it works
Windows(workingfile).Activate
OldINS.Range("M14").Select
Selection.Copy
Windows(masterfile).Activate
Tohere = MainINS.Range("BU_1").Offset(-3, 0).Address
MainINS.Range(Tohere).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
that copy the text in ok with out dropping anything
but then that casuse a other Problem
coping the newly created Sheet to a file
then when it saved it would drop the text again
that p me off
so
Sheets("Insurance").Select
Dim Longtxt As String * 600 'old old school of coding didn't think it would work ok if more than 600 then im screwed
Longtxt = Range("c132").value
Sheets("Insurance").Copy
ActiveWorkbook.SaveAs FilePath, xlWorkbookNormal, "", "", False, False
Range("C132").value = Longtxt
ActiveWorkbook.Save
XlNormal would drop the text
xlWorkbookNormal would keep the text
Hope this save someone else 3 hours work


