Set OrigSh = ActiveSheet
For Each c In Range(Range("J2"), Range("J" & Rows.Count).End(xlUp))
If c.Offset(0, -8) = Date Then
On Error Resume Next
Set Sh = Nothing
Set Sh = ActiveWorkbook.Worksheets(c.Value)
On Error GoTo 0
If Sh Is Nothing Then
Worksheets(Worksheets.Count).Name = c.Value
c.EntireRow.Copy ActiveWorkbook.Worksheets(c.Value).Range("A" & Rows.Count).End(xlUp).Offset(1)
Open in new window
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.