How to update a 2nd Worksheet from another Worksheet

Hello Spellbound,

Replace the macro on the Results worksheet with the code below, and remove the macro from the Input worksheet.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$B$2" Then Exit Sub
  ActiveSheet.Calculate
  Worksheets("Input").Range("$O$2") = Target
  Worksheets("Input").Calculate
End Sub

Sincerely,
Leith Ross

Hi Leith

That works fine, it will speed things up especially when I incorporate it in the main workbook project, which is much larger.

Many thanks ...spellbound