Save on change
 

Hello

I want to save a worksheet to another workbook when there is a change in a
cell on sheet 1 range(a7:c300)
If the workbook to save already exists then overwrite workbook with new
values.

Thanks Birdy

Save on change
 

Birdy,

This code in the worksheet code module will do it (although it could get a
bit CPU heavy!)

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
On Error GoTo ws_exit
If Not Intersect(Target, Range("A7:C300")) Is Nothing Then
ThisWorkbook.Save
End If
ws_exit:
Application.EnableEvents = True
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Birdy" wrote in message
.nl...
Hello

I want to save a worksheet to another workbook when there is a change in a
cell on sheet 1 range(a7:c300)
If the workbook to save already exists then overwrite workbook with new
values.

Thanks Birdy