Code Works, then Stops Working

[reberryjr]

I'm at a loss as to why, but when I run this code the first time, it runs as expected. When I try to run it again, it fails at the line in red. Yes, there is more code underneath the red line, but I'm only posting up to the failure point.

Private Sub cmd_Submit_Click()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim m As Workbook
Dim mT, mN, mV, mI As Worksheet
Dim mILR, mINR As Long

Set m = ThisWorkbook
Set mT = m.Sheets("Template")
Set mV = m.Sheets("Variables")
Set mI = m.Sheets("Inventory")

mINR = Sheets("Inventory").Range("D" & Rows.Count).End(xlUp).Offset(1).Row

 

[davesexcel]

What is the error?

If the code runs the first time, but does not run the second time and you don't show the code, it would be hard to formulate an answer.

Your variables should be dim'd seperately.

Dim mT, mN, mV, mI As Worksheet

Should be

Dim mTAs Worksheet, mNAs Worksheet, mVAs Worksheet, mI As Worksheet

Same goes for the Long variables.

 

[Alex Blakenburg]

Does it make any difference if you change that line to this:

mINR = mI.Range("D" & Rows.Count).End(xlUp).Offset(1).Row

 

[reberryjr]

Does it make any difference if you change that line to this:

mINR = mI.Range("D" & Rows.Count).End(xlUp).Offset(1).Row

@Alex Blakenburg this change appears to have fixed the issue. Thank you!

 

[Alex Blakenburg]

Thanks for letting us know. Glad we could help.