Code for Save As file name help needed "selected" "Active cell"

[Javi]

Hi All,

I'm trying to populate the (File Name) in the save as dialog box with a selected cell, and a specific location "A1". I can get the below code to work with to specific locations "B1" & "A1" just can't seem to find how to use the selected cell as one of the parts of the file name.


Any help would be greatly appreciated thank you

This is the part I cannot figure out " ActiveSheet.Selection"

Sub SaveWorkbook()
Dim SvName As String
Dim cl As Range
Dim Selection As Range






SvName = ActiveSheet.Selection & " " & ActiveSheet.Range("A1")
Application.Dialogs(xlDialogSaveAs).Show SvName


End Sub

Thanks!!

 

[Javi]

Got it !!

Sub SaveWorkbook()
Dim SvName As String
Dim Selection As Range


SvName = ActiveCell & " " & ActiveSheet.Range("A1")
Application.Dialogs(xlDialogSaveAs).Show SvName


End Sub