Hello, can anybody help with this?
I have a list box that I want populated by extracted date from this code:
Sub Listing_Cousrse_Titles()
Application.ScreenUpdating = False
Dim r, a, Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
a = 6
If Cells(a, 37) <> xlnull Then
MsgBox...