VB Code to save a workbook when a cell is selected?

[Jay3]

Hi All,

Can someone help me out with some code please.

I have an excel spreadsheet which contains a simple list for users to add task to give me to do.

When a user adds a task an email is generated to let me know that a new task has been added.

As this is a shared workbook there is the risk that someone will overtype the same line.

Currently each time the macro runs to generate the email it save the workbook. The problem is that if another user is in the workbook at the same time they to have to hit save to refresh the spreadsheet before entering a new line.

The solution I have thought of is this.

Each time a user selects a cell in column A to start to enter a new task I would like the workbook to save automatically.

Can someone assist with the code for this please?

Thanks,
Jay3

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then ThisWorkbook.Save
End Sub

 

[Jay3]

Thanks works a treat )