Saving excel spreadsheet via userform

[kieranbop]

i'm trying to save the data inputted from the userform thats been written out to excel.

Aim is to click a save button and from their it will prompt the browse directories etc where they want to save but the name is already preset.

ThisWorkbook.SaveAs "C:\Users\u544835\Documents\HPC Requests.xls"

this doesnt let me choose the location etc via browse I have to use the preset folder and name when I click a button, I want to click a button then the browse comes up to what location and name etc

any help kindly appreciated

 

[VoG]

Try like this

Dim fName As Variant
fName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Save As")
If fName = False Then Exit Sub
ThisWorkbook.SaveAs Filename:=fName

 

[kieranbop]

Thanks a bunch exactly what I was after