It the below msg box i want the value that is entered INTO the msg box to
NAME the file to Save. (eg. File 10)

Sub Macro20()
Range("A4").Select
Selection.ClearContents

res = InputBox("The MAXIMUM number of Sheets have been reached,
This is a NEW COPY of the WorkBook.", "Company Name ....")

If res = "" Then Exit Sub
ActiveWindow.DisplayWorkbookTabs = False
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With

End Sub



What step needs to added to madify this so it will name it this?

Corey....