Private Sub Worksheet_Activate()
Dim C As Range
For Each C In Range("H3:H8")
If C.Value = "Done" Then
If C.Offset(, -7) < Date + 8 Then
If MsgBox("Date Limit : " & Cells(C.Row, 1) & vbCrLf & vbCrLf & "Do you want to go now?", vbYesNo, "Hello Pam!") = vbYes Then
Cells(C.Row, 1).Select
Exit Sub
Else
MsgBox "Don't forget it!"
End If
End If
End If
Next
MsgBox "No urgent duty," & vbCrLf & "so have a rest!"
End Sub