Parte List Columns

[Anonymous]

I've got a small macro to extract the data from 4 columns into an excel spreadsheet.

It works fine, but the columns required are hard coded into the macro.

I'd like to be able to scan across the columns for it's title and identify the required columns (item, part no, description, no off), particularly as I now find we use two parts list formats!!!

[Anonymous]

Based on the old methods of trial and error ---

Dim oColumns As PartsListColumns
Set oColumns = oPartsList.PartsListColumns
Debug.Print oColumns.Count

Dim oColNo As Integer

For oColNo = 1 To oColumns.Count

Dim oColumn As PartsListColumn
Set oColumn = oPartsList.PartsListColumns.Item(oColNo)
Debug.Print oColumn.Title

Next