Auto Save of a Form

[Kiran Kumar]

Hi there,


Good Morning!


I have an excel form where we usually fill the form and save as the file in our local share drive with a name as per B5 cell.


Is there any way that once user enters a name on B5 cells the form should automatically save as onto the sharedrive with B5 cell data as the file name?


example:

B1 1111

B2 Telephone Request

.

.

B5 Kiran Kumar


So, as soon as I enter B5 now the file should save as with B5 data that C:testfolderKiran Kumar.xls like that....


Greatly appreciate your efforts on this!


Regards,

KK

 

[Dinesh121]

Hey Kiran,


Let me know if this works ... add this code in the sheet where the form reseides


Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("B5") Then


Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="C:XXX" & Range("B5").Text & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Application.DisplayAlerts = True

End If


End Sub