Hide timebomb in another macro

[KingSwish828]

Hello,

I was hoping I could get some help with a adding a timebomb to another macro on a workbook, without an expiration date appearing when the workbook is open. I am using excel 2007 and I am not certain if I can jsut add it at it anywhere in the macro.

Here is the macro that I want to hide the timebomb in:

Sub Sort_1()
'
' Sort_1 Macro
'
'
ChDir "F:\AR Correspondence Shared\QA folder\NEW QA FORMAT\TXT FILES\New Macro"
Workbooks.OpenText Filename:= _
"F:\AR Correspondence Shared\QA folder\NEW QA FORMAT\TXT FILES\New Macro\data.txt" _
, Origin:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
Array(0, 1), Array(8, 1), Array(16, 1), Array(25, 1), Array(82, 1), Array(87, 1), Array(106 _
, 1), Array(116, 1), Array(127, 2), Array(141, 1), Array(186, 1), Array(196, 1), Array(202, _
1)), TrailingMinusNumbers:=True
Cells.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Cells.EntireColumn.AutoFit
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("G:G").Select
Selection.Delete Shift:=xlToLeft
Columns("H:H").Select
Selection.Delete Shift:=xlToLeft
Rows("4:6").Select
Selection.Delete Shift:=xlUp
Rows("6:6").Select
Selection.Delete Shift:=xlUp
Range("A5:G88262").Select
ActiveWorkbook.Worksheets("data").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("data").Sort.SortFields.Add Key:=Range("F5:F88254") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("data").Sort
.SetRange Range("A5:G88254")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("M8").Select
ActiveWindow.ScrollRow = 11879
ActiveWindow.ScrollRow = 12745
ActiveWindow.ScrollRow = 13116

End Sub

 

[RSXchin]

by "timebomb", you mean... a date that code would stop working after?

 

[Nalani]

Try this link for ideas:
http://www.cpearson.com/excel/workbooktimebomb.aspx

 

[RSXchin]

I'm sorry, but looking at the code you have there, I have a feeling your intentions are less than well meant.

 

[KingSwish828]

Yes, by date I mean that the excel file will not be. Able to be open. I also do not want a message box to appear.I have excel 2007.

 

[RSXchin]

This sounds like a jilted employee move.

 

[KingSwish828]

Yeah, maybe a little.I created a lot of spreadsheets for them and if I leave. Lets just say all I did will be coming with me.

 

[RSXchin]

I thought about doing that too... but I'm in the military and spreadsheets are pretty important.

 

[KingSwish828]

I agree they are important. But when people above you try to take credit for what you did and think they know how to create a simple macro or formula. well I need to show them that they need me more then I need them and I am still employeed with them.

 

[KingSwish828]

Nalani,
Yeah, I saw that link. But I am having trouble combining two macros.