Joel sorted it i took out the \ in "\The_Folder_im_LookingFor"

and works fine

thank you for your help

"Joel" wrote:

This isn't the code I provided. Add a message box to help diagnose the problem

from
FindFolder = RootFolder & DestinationFolder

to
msgbox(RootFolder & DestinationFolder)

It is impossible for the code you posted for FindFolder to equal an empty
string ""

FindFolder = RootFolder & DestinationFolder

"Arnie" wrote:

i have this code supplied by Joel which i have changed but i always get a
FindFolder="" when the folder is there

RootFolder = ThisWorkbook.Path
DestinationFolder = "\The_Folder_im_LookingFor"

Dim FindFolder As String
FindFolder = ""
On Error Resume Next

FindFolder = RootFolder & DestinationFolder

On Error GoTo 0

If FindFolder = "" Then
'not there

Worksheets("Macros").Run_All.Visible = False
Worksheets("Macros").Run_All.Enabled = False
Else
'is there

Worksheets("Macros").Run_All.Visible = True
Worksheets("Macros").Run_All.Enabled = True