Dynamically Updating Funtion/Formula

hi Mrcd

try this code
Sub dural()
Dim r As Range, ady As String
For Each r In Sheets("Sheet1").Cells.SpecialCells(xlCellTypeFormulas)
ady = r.Address
r.Copy Sheets("Sheet2").Range(ady)

r.Copy Sheets("Sheet3").Range(ady)

r.Copy Sheets("Sheet4").Range(ady)

r.Copy Sheets("Sheet5").Range(ady)
Next1
End Sub

run this code whenever u change farmula in sheet 1 same wil be reflected to all sheet.
if u dont want to update specific sheet for e.g. sheet 5 in above code then delete r.Copy Sheets("Sheet5").Range(ady) this line

Originally Posted by globalsourcing

hi Mrcd

try this code
Sub dural()
Dim r As Range, ady As String
For Each r In Sheets("Sheet1").Cells.SpecialCells(xlCellTypeFormulas)
ady = r.Address
r.Copy Sheets("Sheet2").Range(ady)

r.Copy Sheets("Sheet3").Range(ady)

r.Copy Sheets("Sheet4").Range(ady)

r.Copy Sheets("Sheet5").Range(ady)
Next1
End Sub

run this code whenever u change farmula in sheet 1 same wil be reflected to all sheet.
if u dont want to update specific sheet for e.g. sheet 5 in above code then delete r.Copy Sheets("Sheet5").Range(ady) this line

This has been working great for us for the past week...thanks so much for posting this code, it saved me so much time and stress I really appreciate it.