I have below code is there any way I can resume code when its stop
Issue is when its stop I must download some WBK from internal portal due to some time links down/Connectivity/net work issue files took longer or sometimes it’s not taken 10 sec
Its keep hard to adjust time for us.
Code: Select all
Sub Fin_D() Dim wb As Workbook Dim c As Long c = 2 For Each wb In Workbooks If wb.Name = "Test File" Then c = c + 1 Next wb MsgBox "Please Download " & c & " Number of WBK" 'Application.Wait (Now + TimeValue("0:00:15")) Stop Data_Fill End Sub Sub Data_Fill() 'some action is here along with long code End Sub