Thanks Roger. But it will not affect other calculations if i set to Manual
and Uncheck ?
Thanks!

"Roger Govier" a scris:

Hi

The following will save every 5 rows.
Switching Calculation mode to manual before saving, should speed up the
process.
First though, go to ToolsOptionsCalculationset to Manual and Uncheck
Calculate before Save, then switch back to AutomaticOK

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static lngRow As Long
If lngRow < 5 Then lngRow = 5
If Target.Row = lngRow Then
Application.Calculation = xlCalculationManual
ThisWorkbook.Save
Application.Calculation = xlCalculationAutomatic
lngRow = lngRow + 5
End If
End Sub

--
Regards
Roger Govier

"puiuluipui" wrote in message
...
It did cross my mind to save every 5 rows. But it will take also too much
time. But it's an option.
Can this code be made to save every 5 rows?
Thanks!

"Mike H" a scris:

Hi,

Can this macro be made to save only active sheet?

No. That's not an option in Excel. So if your finding it necessary to
save
every time you change row!! then it's the entire workbook. Have you
considered saving less frequently?

Mike

"puiuluipui" wrote:

Hi, i have this macro that save entire workbook at row change.
But this macro is saving entire workbook and it's taking too much
everytime
i change row.
Can this macro be made to save only active sheet?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target
As Range)
Static lngRow As Long
If Target.Row < lngRow Then Me.save
lngRow = Target.Row
End Sub

Can this be done?
Thanks!

__________ Information from ESET Smart Security, version of virus
signature database 4742 (20100104) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 4742 (20100104) __________

The message was checked by ESET Smart Security.

http://www.eset.com



.