Draft

Return column of min value

Sub Macro1 Dim Min As Long Dim MyCol As String Min = WorksheetFunction.Min(Range("A1:I1")) MyCol = Mid(Range("A1:I1").Find(Min).Address, 2, 1) End Sub

Re: Finding Row of Last Occupied Cell In A Range How about Code: Sub Ark68 Dim Fnd As Range Set Fnd = Range("E2:E16").Find("*", Range("E16"),, , xlByRows, xlPrevious, , , False) MsgBox Fnd.Row End Sub

Option Explicit

Sub GetMetaDataFromSoundFiles

Dim objShellApp As Object Dim objFolder As Object Dim varColumns As Variant Dim arrData As Variant Dim strFilename As String Dim fileCount As Long Dim i As Long Dim j As Long Set objShellApp = CreateObject("Shell.Application") Set objFolder = objShellApp.Namespace("C:\Users\Domenic\Documents\Sounds") 'change the path to the source folder accordingly varColumns = Array(0, 20, 21, 28, 16, 14) ReDim arrData(0 To UBound(varColumns), 0 To objFolder.Items.Count) For i = LBound(arrData, 1) To UBound(arrData, 1) arrData(i, 0) = objFolder.GetDetailsOf(objFolder.Items, varColumns(i)) Next i   fileCount = 0 For i = 0 To objFolder.Items.Count - 1 strFilename = objFolder.GetDetailsOf(objFolder.Items.Item(CLng(i)), 0) If Right(strFilename, 4) = ".mp3" Or Right(strFilename, 4) = ".wav" Then fileCount = fileCount + 1 For j = 0 To UBound(varColumns) arrData(j, fileCount) = objFolder.GetDetailsOf(objFolder.Items.Item(CLng(i)), varColumns(j)) Next j       End If    Next i    Worksheets.Add Range("A1").Resize(UBound(arrData, 2) + 1, UBound(arrData, 1) + 1).Value = Application.Transpose(arrData) End Sub