saving data from Userform the spreadsheet VERY Slow.

[weaselmcguff]

I am saving data from VBA Userform to a spreadsheet. BUT it is very slow in saving.
VERY little data in the spreadsheet and from the userform.

When i hit save to make it go faster i click the mouse button and it goes 100x faster. What am i doing wrong?

Here is my save code:

Sheets("saved").Select ' targets the Sheets worksheet
Dim lrow As Integer
lrow = Sheets("saved").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 'new row to enter data into
With Sheets("saved")
.Cells(lrow, 1).Value = Date
.Cells(lrow, 2).Value = cb1
.Cells(lrow, 3).Value = lb1.Caption
.Cells(lrow, 4).Value = tb1
.Cells(lrow, 5).Value = tb2
.Cells(lrow, 6).Value = tb3
.Cells(lrow, 7).Value = tb4
.Cells(lrow, 8).Value = tb5
End With
ActiveWorkbook.save

Any help is greatly appreciated.

 

[Jerry Sullivan]

I don't see anything in that code that should cause that. Try copying your Userform into a new blank workbook and running this with all other Excel workbooks closed.
You can drag and drop code modules in the VB Editor's Project Explorer to copy them between workbooks.

If the code runs quickly in the new workbook, the problem could be with the environment of the existing workbook. You can find lots of threads on potential causes of slow workbooks.

 

[RoryA]

In addition to what Jerry suggested, my best guess would be that by clicking the mouse you are interrupting the recalculation of the workbook. Do you see 'Calculate' in the status bar?

 

[weaselmcguff]

I do see a calculate on the status bar.
Runs slow in another workbook also

 

[RoryA]

Then I guess one of your open workbooks is taking a long time to calculate.

 

[weaselmcguff]

Going to have to do some checking and closing of other workbooks to see.

Thanks for the suggestions and Ideas on where to look.

MUCH appreciated