For Each Sheet in Workbook
 

Thought I would post the rest of it.

Case Is = 2
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name Like "EDL *" Then
DtRg = Sh.Range("O1").Value
If DtRg = UFdate Then
Select Case True
Case Is = wsData.Range("E20")
Select Case DtRg
Case Is = UFdate
Sh.Range("J23").Value = ""
Sh.Range("H23") = 24
Case Is = UFdate + 1
Sh.Range("J23").Value = ""
Sh.Range("H23") = 24
Case Is = UFdate + 2
Sh.Range("H23").Value = ""
Sh.Range("J23") = 24
Case Is = UFdate + 3
Sh.Range("H23").Value = ""
Sh.Range("J23") = 24
UFdate = UFdate + 4
End Select
Case Is = wsData.Range("E22")
Select Case DtRg
Case Is = UFdate
Sh.Range("H23").Value = ""
Sh.Range("J23") = 24
Case Is = UFdate + 1
Sh.Range("H23").Value = ""
Sh.Range("J23") = 24
UFdate = UFdate + 2
Case Is = UFdate + 2
Sh.Range("J23").Value = ""
Sh.Range("H23") = 24
Case Is = UFdate + 3
Sh.Range("J23").Value = ""
Sh.Range("H23") = 24
UFdate = UFdate + 4
End Select
End Select
End If
End If
Next Sh
End Select



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!