How to Preserve Blank Lines in VBA Code within Code Tags

[Jerry Sullivan]

Hi All,

After the Board updated its vBulletin software, blank lines used to make VBA Code more readable seem to get stripped away when posted.

Is there a trick to preserving blank lines?

 

[Jerry Sullivan]

I'm guessing someone would have responded by now, if there's just a User CP setting that needed to be changed.

If nothing else, I've found after doing an initial post, one can edit the code to add line spaces.

Direct Copy-Paste from VBE:

Sub Make_VisibleItems_Array()
    Dim vVisibleList() As Variant, vPCodes As Variant
    Dim i As Long
    vPCodes = Split("AB11,AB12,M2,M3,M4,M5,M6,M7,M8,M9,N1,N2,N3,N4,AB13", ",")
    ReDim vVisibleList(LBound(vPCodes) To UBound(vPCodes))
    For i = LBound(vPCodes) To UBound(vPCodes)
        vVisibleList(i) = "[Postal District].[Postal District].&[" & vPCodes(i) & "]"
    Next i
    ActiveSheet.PivotTables("PivotTable6").PivotFields( _
        "[Postal District].[Postal District].[Postal District]") _
            .VisibleItemsList = vVisibleList
End Sub

After editing post to add blank lines:

Sub Make_VisibleItems_Array()
    Dim vVisibleList() As Variant, vPCodes As Variant
    Dim i As Long    

    vPCodes = Split("AB11,AB12,M2,M3,M4,M5,M6,M7,M8,M9,N1,N2,N3,N4,AB13", ",")     

    ReDim vVisibleList(LBound(vPCodes) To UBound(vPCodes))
    For i = LBound(vPCodes) To UBound(vPCodes)
        vVisibleList(i) = "[Postal District].[Postal District].&[" & vPCodes(i) & "]"
    Next i

    ActiveSheet.PivotTables("PivotTable6").PivotFields( _
        "[Postal District].[Postal District].[Postal District]") _
            .VisibleItemsList = vVisibleList
End Sub

Still hoping someone can share a trick that keeps the blank lines in the VBE intact after pasting.