Thread: Transpose address List

How do I transpose a vertical list 3300 rows into a horizontal rows make address labels? The macro I have used in the past is not working.

Sub address()
Dim myAreas As Areas, myArea As Range
With Range("a1", Range("a" & Rows.Count).End(xlUp))
    On Error Resume Next
    Set myAreas = .SpecialCells(2).Areas
End With
On Error GoTo 0
If myAreas Is Nothing Then Exit Sub
For Each myArea In myAreas
    With myArea
        If .Rows.Count > 1 Then
            .Cells(1, 2).Resize(, .Rows.Count).Value = Application.Transpose(.Value)        Else
            .Cells(1, 2).Value = .Value
        End If
    End With
Next

End Sub

Thank you.

Hi LGRANT

the codes good but the else was in the wrong line

try

Sub address()
Dim myAreas As Areas, myArea As Range
With Range("a1", Range("a" & Rows.Count).End(xlUp))
    On Error Resume Next
    Set myAreas = .SpecialCells(2).Areas
End With
On Error GoTo 0
If myAreas Is Nothing Then Exit Sub
For Each myArea In myAreas
    With myArea
        If .Rows.Count > 1 Then
            .Cells(1, 2).Resize(, .Rows.Count).Value = Application.Transpose(.Value) 
       Else
            .Cells(1, 2).Value = .Value
        End If
    End With
Next

End Sub