Cell Value Change

Leith,

Thank you for this, I cant believe how simple that was.

How do I now limit this to columns B:AR

Also is it possible to have a 'Y' entered if the formating of the above colums changes?

Once again hope you can assist

Hello Paul,

The cell format won't effect the cell's value, other than it's appearance. The "Y" will always be stored in the cell.

I am not clear on what you want to do with columns B:AR. Can you give me some more details?

Thanks,
Leith Ross

Hi Leith,

This works well but now I only want a 'Y' placed in the cell (E in your example) if the value of columns B:AR changes, therefore changes to columns oustide this range will not place a 'Y' in the given cell.

As for the format side what I am trying to do is also have the 'Y' enetered in the given cell if the format changes even if the value doesn't.

Thanks again

Hi Leith,

Once again may thanks for your help.

Do you think there is a way of applying this logic as I mentioned to changes in format?

The next step problem I need to solve relates to the code below:

Sub Mail_Product_Data_Update()
Dim varAnswer As String

varAnswer = MsgBox("Are you sure you want to send Updates? If Yes then Select Yes on the next Warning Message.", vbYesNo, "Warning")
If varAnswer = vbNo Then Exit Sub
Dim strDate As String
Sheets(Array("Product Data")).Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail "paul.senior@bt.com", _
"Updated Combined Report"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub

This sends the whole worksheet, however I now want to be able to just select the rows that have a 'Y' in a set column and then email this.

Any ideas how i may acieve this?

I must say your assitance is truely appreciated.

Regards

Paul