Help with ThisWorkbook
 

Here is the macro as it currenly exists...The fixed file is BonusTotals.xls.
The file that will change that I want to make "ThisWorkbook" is Bonus
Test2.xls.

Sub PostBonus()
'
' PostBonus Macro
' Macro recorded 5/27/2005 by dperkins
'
' Keyboard Shortcut: Ctrl+b
'
Workbooks.Open Filename:= _
"F:\Franchise_GPC\Ben Franklin Info\Ben Big Pictures
2005\BonusTotals.xls"
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Range("A3").Select
Windows("Bonus Test2.xls").Activate
Range("E6").Select
Selection.Copy
Windows("BonusTotals.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("B3").Select
Windows("Bonus Test2.xls").Activate
Sheets("P1").Select
Range("H35").Select
Application.CutCopyMode = False
Selection.Copy
Windows("BonusTotals.xls").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("Bonus Test2.xls").Activate
Sheets("P2").Select
Range("H35").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Bonus Test2.xls").Activate
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("Bonus Test2.xls").Activate
Sheets("P3").Select
Range("H35").Select
Application.CutCopyMode = False
Selection.Copy
Windows("BonusTotals.xls").Activate
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("Bonus Test2.xls").Activate
Sheets("P4").Select
ActiveWindow.SmallScroll Down:=16
Range("H35").Select
Application.CutCopyMode = False
Selection.Copy
Windows("BonusTotals.xls").Activate
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub