Hi Skip
Firstly, tahnks for a quick reply.
I have Sheets No's which contain the code are 2,3,4,5,7,8,9,10,11
The code in each sheet is as follows.
Sheet7(HEARTS)
Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("HEARTS").Cells(22, 3).Value <> "" And...