Hi,

Currently I have 2 workbooks... WB1 is HSA Yield, WB2 is Pivot Yield.
In WB1, I have a command button link to the private sub name HSAYield ().
In WB2, I have a command button link to the private sub name PivotYield()

Now, I am writing codes in WB1 Private Sub HSA Yield as show below :-
The problem that I am facing is that the last line that states : Call
AllPHC..... cannot be activated. Could somebody help me to resolve this.
Thanks.

Private Sub HSAYield_Click()
'
' HSA Yield Macro
' Macro recorded 6/9/2005
'
' Crunching of Pivot Height Check All Models All Lines Yield
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Worksheets("Selections").Select
Range("D3").Copy
Workbooks.Open Filename:="D:\Templates For HSA\PHC Template All Lines
All Models.xls"
Workbooks("PHC Template All Lines All Models.xls").Activate
Worksheets("Selections").Select
ActiveSheet.Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Call AllPHCStationsAllModels1stAndFinalPass_Click

End Sub