Spreadsheet slow to add new lines

[dpaton05]

My spreadsheet is slow to add a new line through a macro, how could I speed it up?

 

[Michael M]

which macro Dave ??

 

[dpaton05]

which macro Dave ??

Here is my code

Private Sub cmdAddRow_Click()

Dim tbl As ListObject
Dim newRow As ListRow


Set tbl = Worksheets("home").ListObjects("tblCosting")


    'ActiveSheet.Unprotect Password:="npssadmin"

    'add a row at the end of the table
    
    Set newRow = tbl.ListRows.Add
    newRow.Range(28) = 1 'assuming the first column of your table is in Column A. Adjust as necessary
    
End Sub

 

[Michael M]

Works fine for me.....make sure you don't have any sheet macros that are running as well, like a worksheet sekection change event, that could be fired when your code tries to add the new line

 

[dpaton05]

I think I found the problem. It seems to go quicker if I delete unnecessary code or unused code in my project.

 

[Michael M]

Yep.....anything that is linked to that sheet via VBA is potentially a problem.
I'm guessing by some of your previous threads, that you have a number of macros in the workbook.
It might be a good time to merge / remove some of your codes wherever possible..

It's easy to lose track of where and what is happening.

 

[dpaton05]

thanks Michael