I have the following code but the IF, ElseIf, ElseIf doesn't work and I want to get away from the Activate command but it keeps erroring with everything I've tried, possibily due to the Dir function.
Sub DataPull()
Dim Path, Name, Trend As String
Dim pos, FDate, M, Y, D As Integer
Dim wb, As...