Save File

With help from a few the following has helped me resolve this.
Thanks

Dim YourPicker As FileDialog
Dim FolderForFile As String
 Set YourPicker = Application.FileDialog(msoFileDialogFolderPicker)
    With YourPicker
    .Title = "browse folder to save " & ThisWorkbook.Name & " In:"
     .InitialView = msoFileDialogViewDetails
     .AllowMultiSelect = False
 If InStrRev(ThisWorkbook.Path, "\") > 3 Then
  .InitialFileName = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
 Else
     .InitialFileName = ThisWorkbook.Path
     End If
     If .Show = -1 Then
        ThisWorkbook.SaveAs .SelectedItems(1) & IIf(Len(.SelectedItems(1)) = 3, "", "\") & ThisWorkbook.Name
        Else:
            Exit Sub
        End If
   End With