ThisWorkbook.Close SaveChanges:=True
Workbooks("myWorkbook.xls").Close SaveChanges:=True
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
End If
Next RowIdx
'Go back to the first sheet
ws.Select
Set ws = Nothing
Application.ScreenUpdating = True
ThisWorkbook.Close SaveChanges:=True
End Sub
ws.Select
Set ws = Nothing
Application.ScreenUpdating = True
Sub save_and_close()
ThisWorkbook.Close True
End Sub