Reminding On Due Date

[cyee]

Hi All,

Hope someone can help me on this.
I got this script from somewhere, but understand this script is only for Sheet1.
My workbook consists of Sheet1, Sheet2, Sheet3, Sheet4, Email Add & etc.
I would like to apply this macro for Sheet1 to 4. How should I modify?

TIA

Option Explicit
Sub Auto_Open()

Dim LRow As Integer
Dim LResponse As Integer
Dim LName As String
Dim LDiff As Integer
Dim LDays As Integer
Dim LInvoice As String 'lc number
Dim LDd As String
Dim LPic As String


LRow = 6

Dim MaxRowNumber As Integer

MaxRowNumber = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

'Warning - Number of days to check for expiration
LDays = -3

While LRow < MaxRowNumber

'Check the data in column C
If IsError(Worksheets("Sheet1").Range("T" & LRow).Value) Then
Else
'Only check for expired certificate if value in column T is not blank
If Len(Worksheets("Sheet1").Range("T" & LRow).Value) > 1 Then


LDiff = DateDiff("d", Date, Worksheets("Sheet1").Range("T" & LRow).Value)
If (LDiff < LDays) And Len(Worksheets("Sheet1").Range("Y" & LRow).Value) < 1 Then
'Get subcontractor name
LName = Worksheets("Sheet1").Range("A" & LRow).Value
LInvoice = Worksheets("Sheet1").Range("G" & LRow).Value
LDd = Worksheets("Sheet1").Range("T" & LRow).Value
LPic = Worksheets("Sheet1").Range("E" & LRow).Value
LResponse = MsgBox("Invoice No: " & LInvoice & ", Customer: " & LName & " is due to payment on " & LDd & " days." & vbCrLf & "PIC: " & LPic & "" & vbCrLf & "Please make sure payment in!! ", vbCritical, "Warning")
End If
End If
End If
LRow = LRow + 1
Wend
' MsgBox "No Over Due Found! " & vbCrLf & "Payment Received In Time *\(^_^)/* "

End Sub

[Kaper]

Try:

Please Login or Register  to view this content.

[cyee]

Hi Kaper,

Thank for your code.
It work perfectly if I change my sheet name to Sheet1, Sheet2 & etc with the name start with "Sheet"
However, my sheet name is actually unique.
May I know how to modify the sheet name in your code?

I hereby attached the sample. Hope to hear from you soon

TIA

[Kaper]

For instance:

Please Login or Register  to view this content.

[cyee]

Woah!!! It Work!!! Thank you very much!!!!