Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim strAddress() As String
If Sh.Name = "Sheet1" Then
strAddress = Split(Target.Address, "$")
If strAddress(1) = "S" Then
Select Case strAddress(2)
Case 7 To 28
If Target.Value = 1 Then
Call Send_EMail
End If
End Select
End If
End If
End Sub