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.