The order of your commands is wrong. Rather than

res = InputBox("The MAXIMUM No. of Records is reached, NAME NEW
File AS ? ", _
"Company Name...")
ThisWorkbook.SaveAs res
If res = "" Then Exit Sub

you need
res = InputBox("The MAXIMUM No. of Records is reached, NAME NEW
File AS ? ", _
"Company Name...")
If res = "" Then Exit Sub
ThisWorkbook.SaveAs res


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Corey" wrote in message
...
Thanks for the reply Leith.

My post above your post explains what i am after a bit further.

I have just realised also that, IF i click the CANCEL in the
Input box, i get an error AND the NEW WorkBook is STILL
created.

res = InputBox("The MAXIMUM No. of Records is reached, NAME NEW
File AS ? ", "Company Name...")
ThisWorkbook.SaveAs res
If res = "" Then Exit Sub
<============= Does this not stop the macro if CANCEL or
nothing is entered ?
Application.Dialogs(xlDialogSaveAs).Show <============= Want
this to SAVE NEW FILE NOT old file....
ActiveWindow.DisplayWorkbookTabs = True
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = False
End With

End Sub


Corey.....