I don't think it is.
You'll have reconceptualize this procedure:
if it's a 'new' sheet it needs a 'creation date' and at the same time it will be renamed with a new version name.
No need to let the user interfere where your code can handle this independently.
Private Sub Workbook_Open()
with Sheets("Process Sheet")
If .Cells(1, 27) = "" Then
.Cells(1, 27) = Date
.Cells(19, 2)=.Cells(19, 2) + 1
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" .Cells(13, 2) & " Rev" & .Cells(19, 2) & ".xlsm", ThisWorkbook.FileFormat
end if
end with
End Sub
Bookmarks