Something like this :-

'------------------------------------------------------
Private Sub CommandButton1_Click()
Dim ColumnName As String
Dim ListBoxItem As String
Dim MatchColumn As Boolean
'---------------------------
c = 1
Do
MatchColumn = False
ColumnName = UCase(ActiveSheet.Cells(1, c).Value)
For i = 0 To ListBox2.ListCount - 1
ListBoxItem = UCase(ListBox2.List(i))
If ListBoxItem = ColumnName Then
MatchColumn = True
Exit For
End If
Next
If MatchColumn = False Then
ActiveSheet.Columns(c).EntireColumn.Delete
Else
c = c + 1
End If
Loop While ActiveSheet.Cells(1, c).Value < ""
'---------------------------
End Sub
'----------------------------------------

--
Message posted from http://www.ExcelForum.com