I have this code that works perfect in Excel 2007, but when I went to use it
in Excel 2003 in does not work. It appears that excel 2003 is only allowing
me to write 255 characters at a time and that is where the problem lies. Can
some one help me fix this so that it writes to the same text box in "chunks"
of 255 characters OR make this work as a whole.

Thanks in Advance.

-----------------------------------------------
Sub Fill_Letter()

Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = Worksheets("Billing Letter")
Set ws2 = Worksheets("Billing Statement")

'Get Info from Billing Statement

Inc_Date = ws2.Cells.Range("D1").Value
Inc_No = ws2.Cells.Range("L1").Value
Inc_Addrs = ws2.Cells.Range("C8").Value
Inc_City = ws2.Cells.Range("B9").Value
Con_Name = ws2.Cells.Range("D12").Value
Con_Comp = ws2.Cells.Range("E11").Value
Con_Addrs = ws2.Cells.Range("C13").Value
Con_City = ws2.Cells.Range("B14").Value
Con_State = ws2.Cells.Range("H14").Value
Con_Zip = ws2.Cells.Range("J14").Value
FD = ws2.Cells.Range("D2").Value
TotalChg = ws2.Cells.Range("L40").Value

'Place Header on page
ws.DrawingObjects("HeaderBox").Select
Selection.Characters.Text = "THIRD DISTRICT CHIEF'S ASSOCIATION" & vbLf _
& "M.A.B.A.S DIVISION 24" & vbLf _
& "HAZARDOUS MATERIALS RESPONSE TEAM" & vbLf _
& "BILLING STATEMENT"

'Place main letter on Page
ws.DrawingObjects("Textbox2").Select

Sdate = FormatDateTime(Date, vbLongDate) 'Gets Todays Date

StrTmp = Sdate _
& vbLf & vbLf _
& Con_Name & vbLf & Con_Comp & vbLf _
& Con_Addrs & vbLf & Con_City & ", " _
& Con_State & " " & Con_Zip & vbLf & vbLf _
& "This statement is for services provided by the MABAS 24 Hazardous
Materials " _
& "Response Team for the following incident: " & Inc_No _
& " on " & Inc_Date & " at:" & vbLf & vbLf & Inc_Addrs _
& vbLf & Inc_City & vbLf & vbLf _
& "The Hazardous Materials Team responded at the request of the " & FD _
& " Fire Department and provided technical support. " _
& "These charges are for services provided by the MABAS 24 Hazardous
Materials " _
& "Response Team only. Other charges may be pending from municipalities
or " _
& "clean-up companies if required." & vbLf & vbLf _
& "Total charges for services provided by HazMat Response Team: " _
& "$" & TotalChg & vbLf & vbLf _
& "See attached statement of services." _
& vbLf & vbLf

StrTmp = StrTmp _
& "Please remit to:" & vbLf & vbLf _
& "Third District Chiefs Association" _
& vbLf & "C/O Deb Hoiden" _
& vbLf & "Flossmoor Fire Department" _
& vbLf & "2800 Flossmoor Road" _
& vbLf & "Flossmoor, IL 60422" _
& vbLf & vbLf _
& "Any questions, please contact me at 708-362-0561, or email
." _
& vbLf & vbLf _
& "Sincerely," & vbLf & vbLf & vbLf & vbLf _
& "FF/PM Scott Stegenga" & vbLf & "Billing Agent"


Selection.Characters.Text = StrTmp
' MsgBox (StrTmp)
End Sub

--
Message posted via http://www.officekb.com