Auto-fill Save as field

Hi all,

I am trying to make an excel spreadsheet as simple as possible for multiple users, most of whom do not know how to use excel, nor will they admit to it.
I thought what i wanted to do was simple, i guess not.

I want the 'save as' field to automatically populate with the information from a specific cell.

For example: B2 has John Doe as the cell's content. I want to be able to click 'Save as' and have either the 'save as' box populate with John Doe, or to have the document save as John Doe without a prompt.

Is this possible?

Jimy

Hi Bernie,

I can't seem to get it working. I'm not sure if it is because i am using an xltm document or because i have a second code being applied.

Sub Worksheet_Change(ByVal Target As Range)

Dim cell As Range
Application.EnableEvents = False

For Each cell In Target
Select Case cell.Row
Case 10, 11, 12, 13, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 39, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52
cell = UCase(cell)
End Select
Next cell

Application.EnableEvents = True

End Sub
Sub Worksheet_autosave()

ActiveWorkbook.SaveAs "C:\Users\Pessoal\Desktop\Historico_2015.2" & Range("B10").Value & ".xlsm", 52

End Sub