Macro to eliminate columns that fail specific criteria

[viralnerd2013]

Hello MrExcel users:

I need a macro that will hide or delete all columns in a data set where the variation within that column is less than 20. For example, the macro would turn this dataset (which is in the format I will be using):

	Pos1	Pos2	Pos3	Pos4	Pos5	Pos6	Pos7	Pos8	Pos9	Pos10
time1	0.00	0.00	0.00	6.52	0.00	6.52	0.00	39.70	0.00	0.00
time2	0.00	0.00	0.00	3.08	0.00	4.08	0.00	13.60	0.00	0.00
time3	0.00	0.00	0.00	29.97	0.00	28.57	0.00	2.03	7.14	0.00

<TBODY>
</TBODY>

Into this table:

	Pos4	Pos6	Pos8
Time1	6.52	6.52	39.70
Time2	3.08	4.08	13.60
Time3	29.97	28.57	2.03

<TBODY>
</TBODY>

Thanks for your help,
Eric

 

[viralnerd2013]

Greater than 20. Sorry for the confusion.

 

[Gary's Student]

Hi Eric:

How about:

Sub KolumnKiller()
Dim NLastColumn As Long, N As Long, rCol As Range
NLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
Dim wf As WorksheetFunction
Set wf = Application.WorksheetFunction
For N = NLastColumn To 2 Step -1
    Set rCol = Columns(N)
    If wf.Max(rCol) - wf.Min(rCol) < 20 Then
        rCol.EntireColumn.Delete
    End If
Next N
End Sub

 

[viralnerd2013]

Works beautifully! Thanks so much.