VBA code to identify folder based on folder name given in a excel sheet

[rockybalboa]

Hi,

Can anybody help me with this?

Suppose the name (ABCD) is mentioned in range A2. There is a folder named ABCD in C:\Users\ . I want the macro to identify ABCD folder based on range A2 and save the excel sheet in that folder.

Thanks

[Bob Phillips]

Is not just

ActiveWorkbook.SaveAs "C:\Users\" & Environ("Username") & "\" & Activesheet.Range("A2").Value & "\" & Activeworkbook.Name

[rockybalboa]

Is not just

ActiveWorkbook.SaveAs "C:\Users\" & Environ("Username") & "\" & Activesheet.Range("A2").Value & "\" & Activeworkbook.Name

I have this code. But it is not saving the file in the folder.

Sub Test_Folder_Exist_With_Dir()    Dim FolderPath As String
    Dim TestStr As String


    FolderPath = "C:\Users"
    If Right(FolderPath, 1) <> "\" Then
        FolderPath = FolderPath & "\"
    End If


    TestStr = ThisWorkbook.Sheets("Sheet1").Range("A2").Value
    On Error Resume Next
    TestStr = Dir(FolderPath)
    On Error GoTo 0
    If TestStr = "" Then
        MsgBox "Folder doesn't exist"
    Else
      ActiveWorkbook.SaveCopyAs Filename:=FolderPath & ThisWorkbook.Sheets("Sheet1").Range("A2").Value & ".xlsm"
    End If


End Sub

Ok i figured it out. Thanks

ActiveWorkbook.SaveCopyAs Filename:=FolderPath & ThisWorkbook.Sheets("Sheet1").Range("A2").Value & "\" & ThisWorkbook.Sheets("Sheet1").Range("A2").Value & ".xlsm"