Private Sub Workbook_Open()
    Dim rng As Range
    
    Set rng = Range("A1")
    
    Select Case rng.Value
        Case  1 
            Range("B1").Value = "День"
        Case  2 
            Range("B1").Value = "Ночь"
        Case  3 
            Range("B1").Value = "Сумерки"
    End Select
End Sub

Private Sub Workbook_Open()
    Dim intI As Integer
    
    For intI =  1  To  4 
        With Worksheets(intI).Range("A1")
            Select Case .Value
                Case  1 
                    .Range("B1").Value = "День"
                Case  2 
                    .Range("B1").Value = "Ночь"
                Case  3 
                    .Range("B1").Value = "Сумерки"
            End Select
        End With
    Next
End Sub