Simplifying Code

[SamT]

Assigning a Range to a variable includes the sheet if present

Set Rng = Sheets("Sheet1").Range("A1")

Worksheet Code

Set Rng = Sheet1.Cells(x,11)

Select Case Rng.Value
   Case = "Update":   UpDate Rng
   Case = "Archive":  Archive Rng
   Case = "Refresh":  Refresh Rng
End Select

Sample Module Code Heads

Sub Update(Rng As Range)
'
'
'

Sub Archive(Rng As Range)
'
'
'

To incorporate what Paul suggested as to consolidating all common factors

Case = "Update"
   Common Rng
   Update Rng
Case ' ' '
'
'
'

Sub Common(Rng As Range)
   With Rng
      .Offset(, 2) =Format(Now, "mm/dd/yyyy hh:mm:ss AM/PM")
      .Offset(, 3)= Format(.Offset(, 2) - .Offset(, 1), "[hh]:mm:ss")
   End With
End Sub