Sub Workbook_open()
    Call test ' for starting timer again
End Sub

Sub test()
   Dim r As Long
   Dim Msg As String
   With Sheets("Foglio1")
       For r = 2 To 68
           If .Range("H" & r).Value > 0 And .Range("L1").Value >= .Range("H" & r).Value Then
               Msg = Msg & vbLf & .Range("H" & r).Value & "  (RIGA " & r & ") 1 Settimana Rimanente"
           End If
       Next r

       For r = 2 To 68
           If .Range("I" & r).Value > 0 And .Range("L1").Value >= .Range("I" & r).Value Then
               Msg = Msg & vbLf & .Range("I" & r).Value & "  (RIGA " & r & ") 1 Settimana Rimanente"
           End If
       Next r
   End With
   MsgBox Msg

   Application.OnTime Now + TimeValue("00:01:00"), "Foglio1.Workbook_open"
End Sub