Error in Macro: String Parameter Too Long

[Neenas19]

Hi There,
I have a simple find and replace macro that I would like to run. It does fine up until the text goes above 255 characters. I understand that 255 is the "magic" length. However as I understand it the Dim As STRING should allow MANY more than 255. Correct? Here is my code. Any ideas would be greatly appreciated!
Nina
Public Sub Translate()

Dim n As Integer
Dim xls As Excel.Application
Dim myxls As Excel.Workbook
Dim e As String
Dim K As String

Set xls = CreateObject("Excel.Application&quot
xls.Workbooks.Open "OUR Network Path"
xls.Visible = True

n = 1

xls.Range("a2&quot.Select
e = ActiveCell.Value
K = ActiveCell.Offset(0, 1)

Do While n < 131
e = xls.ActiveCell.Value
K = xls.ActiveCell.Offset(0, 1)
With Selection.Find
.Text = e
.Replacement.Text = K
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

n = n + 1
xls.ActiveCell.Offset(1, 0).Select

Loop
End Sub

 

[BrainB]

What version of Excel ?
Regards
BrianB
** Let us know if you get something that works !
================================

 

[Neenas19]

Excel 2000

 

[BrainB]

Had to knowthe version. XL97 sticks at 255.
Extract from Xl2000 VBA Help :-

String data type
A data type consisting of a sequence of contiguous characters that represent the characters themselves rather than their numeric values. A String can include letters, numbers, spaces, and punctuation. The String data type can store fixed-length strings ranging in length from 0 to approximately 63K characters and dynamic strings ranging in length from 0 to approximately 2 billion characters. The dollar sign ($) type-declaration character represents a String in Visual Basic.
Regards
BrianB
** Let us know if you get something that works !
================================