Private Sub Workbook_Open()
Dim num As Integer
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets


Range("C14").Select
num = Range("C14").Value
num = num + 1
Range("C14").Value = num

Next

End Sub