VBA Stop Macro On Error

[richardking]

Hi guys, I have the code below. It creates and names new sheets based on a list. However, I want to add a messagebox wherein if an error occurs, it would say Message Here then stops and exits the sub.


Sub Addsheet()
'Declaring the Variables
Dim i As Integer
Dim LastRow As Integer

'Finding Last Row in Sheet1
LastRow = Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count, "A").End(xlUp).Row

'Using For Loop to Add Sheets by Cell Value
For i = 1 To LastRow
Sheets.Add
ActiveSheet.Name = Worksheets("Sheet1").Cells(i, 1).Value
Next i


End Sub

[Arkadi]

Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html

Please edit your code to fix that issue.

That said, here is a solution:

Please Login or Register  to view this content.

[richardking]

Thank you. Will do that next time.
Your solution did the job! Thank you so much.