VBA: Not quite working

[jamescooper]

My coding is going to Call Forecast_Day_3 when I want it once it has tested the file is there (which it is), to go to Else...Any ideas what is wrong here?

Many thanks.

Sub Forecast_Day_2()


    Dim destcell As Range, r As Long
    Dim fileSpec As String, folderPath As String, fileName As String
    Dim FilePath As String
    Dim TestStr As String


    cellvalue2 = Workbooks("Forecast Template.xlsx").Sheets("Revenue").Range("U12")
    dow2 = Workbooks("Forecast Template.xlsx").Sheets("Revenue").Range("V12")
    
    myvalue3 = 1802
    
    FilePath = FD & "Revenue\" & myvalue3 & "\" & cellvalue2
    
    TestStr = ""
    On Error Resume Next
    TestStr = Dir(FilePath)
    On Error GoTo 0
    If TestStr = "" Then
    Call Forecast_Day_3
    Else

 

[Norie]

Your code will only call Forecast_Day_3 if the file does not exist, is that what you want to happen?

 

[jamescooper]

Yes, that is right, it doesn't seem to be finding that the file exists in that folder - which it does.

 

[Norie]

Have you checked the value of FilePath?

By the way, where is FD declared/given a value?