Private Sub Workbook_Open()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
    sht.Range("C14").Value = sht.Range("C14").Value + 1
Next
End Sub