VBA Excel 2007 Wrap Text

Hey Everybody,

I'll copy in my code as it stands so far, then explain my issue:

Private Sub Worksheet_Activate()

 Worksheets("Labor Report").Range("A2:Z500").Clear
 
 matrow = 1
    
   For pipeinc = 1 To 9
       If Worksheets("Data").Cells(4 + 25 * (pipeinc - 1), 1) <> "" Then
           Worksheets("Labor Report").Cells(matrow, 1) = "Pipe Size: " & Worksheets("Data").Cells(4 + 25 * (pipeinc - 1), 1) & Chr(34)
           Worksheets("Labor Report").Cells(matrow, 1).Font.Bold = True
           matrow = matrow + 1
           Worksheets("Labor Report").Cells(matrow, 1) = "Fitting Name"
           Worksheets("Labor Report").Cells(matrow, 2) = "Quantity"
           Worksheets("Labor Report").Cells(matrow, 1).Font.Bold = True
           Worksheets("Labor Report").Cells(matrow, 2).Font.Bold = True
           matrow = matrow + 1

           For fittinginc = 1 To 22
               If Worksheets("Data").Cells(33 + 7 * (pipeinc - 1), 8 + (fittinginc - 1)) <> "" & Worksheets("Data").Cells(33 + 7 * (pipeinc - 1), 8 + (fittinginc - 1)) <> 0 Then
                   Worksheets("Labor Report").Cells(matrow, 1) = Worksheets("Data").Cells(8 + (fittinginc - 1), 7)
                   Worksheets("Labor Report").Cells(matrow, 2) = Worksheets("Data").Cells(33 + 7 * (pipeinc - 1), 8 + (fittinginc - 1))
                   Worksheets("Labor Report").Cells(matrow, 4) = Worksheets("Data").Cells(33 + 7 * (pipeinc - 1), 8 + (fittinginc - 1))
                   Worksheets("Labor Report").Cells(matrow, 5) = "x " & Worksheets("Data").Cells(34 + 7 * (pipeinc - 1), 8 + (fittinginc - 1))
                   Worksheets("Labor Report").Cells(matrow, 6) = "SubTot = " & Worksheets("Data").Cells(35 + 7 * (pipeinc - 1), 8 + (fittinginc - 1))
                   matrow = matrow + 1
               End If
           Next fittinginc

           Worksheets("Labor Report").Cells(matrow, 6) = "Total = " & Worksheets("Data").Cells(36 + 7 * (pipeinc - 1), 8)

           matrow = matrow + 1

       End If

   Next pipeinc

Worksheets("Labor Report").Cells(matrow + 1, 5) = "Project Total = " & Worksheets("Data").Cells(94, 8)

End Sub

What I'm trying to do is find the appropriate coding to make Excel 2007 VBA wrap the text of the cells I define. AKA Worksheets("Labor Report").Range("A2:A500").Wrap.Text = True. I've tried putting this exact line of code into my worksheet and for some reason it doesn't format the text to wrap in column A. Do I have the formatting of the wrap text wrong? I'm not sure why this isn't working.

Hello DarkF1ame,

To get the text to wrap, you need to set the WrapText property of the cell.or range.

  Worksheets("Labor Report").Cells(matrow, 2).WrapText = True

To make your posts easier to read, copy, and edit please wrap your code. I did it for you this time. Here is how you can do it next time.

How to wrap your Code using the # icon

1. Select all your code using the mouse.
2. Click on the # icon on the toolbar in the Message window. This will automatically wrap the text you selected with the proper Code tags to create a Code Window in your post.

To manually wrap your code, use these Bulletin Board Code Tags

[code] Before of the first line,

[/code] After the last line.