VBA Help

[david.segal]

I have recently inherited a spreadsheet at work with various macros included. One of the macros is currently pulling through an error despite it been the same as in a similar file.

I am currently unable to find the reason for the error. Can anyone help?

Thanks



Sub InsertRow()


On Error GoTo errorhandler



strPwd1 = "thames"
Sheets("Listing").Select
ActiveSheet.Unprotect (strPwd1)
Application.ScreenUpdating = False
Range("A6").Select
Selection.End(xlDown).EntireRow.Copy
Selection.End(xlDown).Offset(1, 0).Insert
Selection.End(xlDown).Select
Application.CutCopyMode = False
ActiveCell.Value = "Select..."
ActiveCell.Offset(0, 2).Value = "Select..."
ActiveCell.Offset(0, 3).Value = "Select..."
ActiveCell.Offset(0, 5).Value = "Select..."
ActiveCell.Offset(0, 6).Value = "Select..."
ActiveCell.Offset(0, 7).Value = "Select..."
ActiveCell.Offset(0, 8).Value = "Select..."
ActiveCell.Offset(0, 9).Value = "Select..."
ActiveCell.Offset(0, 10).Value = "Select..."
ActiveCell.Offset(0, 12).Value = "Enter Value..."
ActiveCell.Offset(0, 13).Value = "Select %..."
ActiveCell.Offset(0, 15).Value = ""
Call protectx

Application.ScreenUpdating = True

Exit Sub
errorhandler:

MsgBox ("There is an error - please contact Finance")

Application.ScreenUpdating = True
End Sub

 

[Domski]

Have you contacted Finance

Seriously though take out the line:

On Error GoTo errorhandler

And let us know where the code is breaking and what error you get.

Dom

 

[david.segal]

Unfortunltey I am finance, so have been contacted.</SPAN>

I have removed the error code and the macro falls down at:


Selection.End(xlDown).Offset(1, 0).Insert


When I look at the macro that is working after this line it goes to a different macro outside of the code, but I can't see where the macro is asking it to go there.

Thanks</SPAN>

 

[Sektor]

This means that the selected row after xlDown is the last row in a sheet. Trying to exceed sheet's limits raises error.

 

[Domski]

Which is the cell selected if you change it to:

Selection.End(xlDown).Select

Dom

 

[david.segal]

I have deleted rows from the bottom of the sheet to the start of the data and file seems to be working as it should now.

Thanks all for your help.