Can You Look At this Timer Please

[rockyw]

I have yet to find a timer to run this macro, can you help with this. Maybe it's the name thats wrong, I'm not sure. Thanks

Application.OnTime TimeValue("08:47:00"), "'TESTTESTTEST 2.xlsm'!Sheet2.BreakoutReDux"
Sub BreakoutReDux()
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = Sheets(2)
ws.Select
TrackCol = 7 ' Use this to set the tracking column as you like.
'Set up a tracking column
Cells(2, TrackCol) = "Status"
'Determine how many rows of data we have
lastrow = Range("A32000").End(xlUp).Row
lastpostedrow = Cells(32000, TrackCol).End(xlUp).Row
'Got back to the primary-sheet2
ws.Activate
'Start looping through rows and copy to target sheet
For RowIdx = lastpostedrow + 1 To lastrow
    Range("A" & RowIdx).Select
    
    'Only copy if col A is a value > 0, else skip it
    If Range("A" & RowIdx).Value > 0 Then
        tgtsht = Asc(UCase(Range("A" & RowIdx).Value)) - 62
        tgtRow = Sheets(tgtsht).Range("A30000").End(xlUp).Row + 1
        
        Range("A" & RowIdx).Offset(0, 1).Copy 'Sheets(tgtsht).Range("A" & tgtRow)
        Sheets(tgtsht).Range("A" & tgtRow).PasteSpecial (xlPasteValues)
        
        Range("A" & RowIdx).Offset(0, 2).Copy 'Sheets(tgtsht).Range("B" & tgtRow)
        Sheets(tgtsht).Range("B" & tgtRow).PasteSpecial (xlPasteValues)
        
        Range("A" & RowIdx).Offset(0, 3).Copy 'Sheets(tgtsht).Range("C" & tgtRow)
        Sheets(tgtsht).Range("C" & tgtRow).PasteSpecial (xlPasteValues)
        
        Range("A" & RowIdx).Offset(0, 4).Copy 'Sheets(tgtsht).Range("D" & tgtRow)
        Sheets(tgtsht).Range("D" & tgtRow).PasteSpecial (xlPasteValues)
        
        Range("A" & RowIdx).Offset(0, TrackCol - 1) = "Posted"
    Else    'skip it and indicate as such
        ws.Range("A" & RowIdx).Offset(0, TrackCol - 1) = "Skipped"
    End If
Next RowIdx
'Go back to the first sheet
ws.Select
Set ws = Nothing
Application.ScreenUpdating = True
    End Sub

 

[tweedle]

Is this line sitting in a workbook that is open w/macros enabled?

Application.OnTime TimeValue("08:47:00"), "'TESTTESTTEST 2.xlsm'!Sheet2.BreakoutReDux"

It appears from the context that it resides in a different workbook than that which holds the macro...is that correct?

 

[rockyw]

It's in the same workook, same sheet as the macro. I think the name got messed up, I need to change the name maybe? Thanks