not workingFor example:
VBA Code:Debug.Print Application.WorksheetFunction.Max(Application.Index(UserForm1.ListBox1.List, 0, 2))
ty i found the solveHow do I know the max date in the second column of the list box?
Textbox1= Me.ListBox2.List(i, 0)
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = False Then
If CLng(.List(i, 0)) > lngMyMaxValue Then
lngMyMaxValue = CLng(.List(i, 0))
End If
End If
Next i
End With
Textbox2 = lngMyMaxValue