That code will work if the cells on Sheet2 get their values from user entry. If any of Sheet2!B14:M14 contain formulas, you'd have to use code like this
' in code module for sheet2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oneCell As Range
Dim keyCells As Range
Set keyCells = Target
On Error Resume Next
Set keyCells = Application.Union(keyCells, Target.Dependents)
Set keyCells = Application.Intersect(Range("B14:M14"), keyCells)
On Error GoTo 0
If Not keyCells Is Nothing Then
For Each oneCell In keyCells
ThisWorkbook.Sheets("Sheet1").Range(oneCell.Address).NoteText Text:=oneCell.Text
Next oneCell
End If
End Sub
And that would work only if all the precedents of Sheet2!B14:M14 were on Sheet2.
If Sheet2!B14:M14 have formulas that take some values from off that sheet, you'd have to put code like this in the ThisWorkbook code module
' in ThisWorkbook code module
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim oneCell As Range
For Each oneCell In Me.Sheets("Sheet2").Range("B14::M14")
ThisWorkbook.Sheets("Sheet1").Range(oneCell.Address).NoteText Text:=oneCell.Text
Next oneCell
End Sub
Bookmarks