Printing Most recently access/ed modified Worksheet within a Workbook

[jgisler]

Hi,
I have a Excel workbook that consists of approx 150-200 worksheets. I used the following code to add date/time stamps to each individual worksheet within the workbook.
I would now like to create a print function that will print out only the most recent (since I last saved) changes to worksheets within the workbook. Is this possible? If so, how would I do it?

Thanks,
Jen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
With Cell
If .Column = Range("G:G&quot.Column Then
Cells(.Row, "F&quot.Value = Int(Now)
End If
End With
Next Cell

End Sub

 

[SkipVought]

hi,

Here's a way...

Sub LatestSheetChange()
    Dim WbkMax, ThisMax, WksName()
    WbkMax = 0
    i = 0
    For Each Worksheet In Worksheets
        ThisMax = Application.WorksheetFunction.Max(Worksheet.Range("F:F"))
        If ThisMax > WbkMax Then
            WbkMax = ThisMax
            i = i
            ReDim WksName(i)
            WksName(i) = Worksheet.Name
        ElseIf ThisMax = WbkMax And ThisMax > 0 Then
            i = i + 1
            ReDim Preserve WksName(i)
            WksName(i) = Worksheet.Name
        Else
            'no op
        End If
    Next
    For i = LBound(WksName, 1) To UBound(WksName, 1)
        Worksheets(WksName(i)).PrintOut
   Next
End Sub

Hope this helps ;-) Skip,
metzgsk@voughtaircraft.com