I have several macros included in my time keeping worksheet. Each has a button assigned to it to clear various information and return to a clean starting sheet. This works fine on my computer. However, when I "save as" and send it to another person to use, not all of the macros work because the name of the worksheet is different. Here is the macro I am having trouble with. This macro works fine on the sheet I created it for, but I need to be able to save as to use it for different employees. Any advice would be appreciated.

Sub Zero_Data_on_Time_By_Payroll()
'
' Zero_Data_on_Time_By_Payroll Macro
' Macro recorded 3/26/2005 by Janice Nemeth
'

'
Sheets("TIME by PAYPERIOD").Select
ActiveWindow.ScrollColumn = 50
Range("BC15:BC40").Select
Selection.ClearContents
Range("BI15:BI40").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 63
Range("BO15:BO40").Select
Selection.ClearContents
Range("BU15:BU40").Select
Selection.ClearContents
Range("CA15:CA40").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 85
Range("CG15:CG40").Select
Selection.ClearContents
Range("CM15:CM40").Select
Selection.ClearContents
Range("CS15:CS40").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 94
Range("CY15:CY40").Select
Selection.ClearContents
Range("DE15:DE40").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 113
Range("DK15:DK40").Select
Selection.ClearContents
Range("DQ15:DQ40").Select
Selection.ClearContents
Range("DW15:DW40").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 127
Range("EC15:EC40").Select
Selection.ClearContents
Sheets("Leave Verification").Select
End Sub
Sub Zero_All_Summary_Information()
'
' Zero_All_Summary_Information Macro
' Macro recorded 3/26/2005 by Janice Nemeth
'

'
Application.Run "MKSD4.xls!Message"
ActiveWindow.SmallScroll Down:=9
Application.Run "MKSD4.xls!Zero_Data_on_Time_By_Payroll"
End Sub
Sub Enter_Time_On_Both_Sheets()
'
' Enter_Time_On_Both_Sheets Macro
' Macro recorded 3/26/2005 by Janice Nemeth
'

'
Application.Run "MKSD4.xls!Module1.CopyColumnJToOtherColumns"
Application.Run "MKSD4.xls!CHANGE_FORMULA_INTO_VALUE"
End Sub