ricardo9316
New Member
- Joined
- Apr 17, 2014
- Messages
- 22
So I haev the following VBA, pretty staright forward code to perfomr a Save As with the name in A1. But I would like for A1 to change "as a data validation/list" based on a list that I have (say: D1:D10) and save the Worksheet with the Cell value Name for each of the 10 records.
Sub SaveAsExample()
Dim FName As String
Dim FPath As String
FPath = "Z:\Ricardo"
FName = Sheets("Sheet1").Range("A1").Text
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
End Sub
Sub SaveAsExample()
Dim FName As String
Dim FPath As String
FPath = "Z:\Ricardo"
FName = Sheets("Sheet1").Range("A1").Text
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
End Sub