Thread: [Solved] Loop through listboxes in Application.OrganizerCopy
View Single Post
 
Old 01-11-2012, 04:47 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Hi Marrick,

Try the following (untested) revision to the 'With ListBox3 .. End With' portion of your 'CmdTarget_Click' sub:
Code:
    With ListBox3
      If .ListCount = 0 Then
        .ColumnCount = 2
        .ColumnWidths = "0; 60"
        i = 0
      Else
        i = .ListCount - 1
      End If
    End With
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote