1: 2: 3: 4: 5:
Public Sub UpdateAll() Sheets("SheetData").Select Range("B21:E21").Select ActiveCell.FormulaR1C1 = "Updated on: " & Now() End Sub