I created a macro and I want to be able to run it from any sheet in my workbook not just the one I created it in. Should I record the macro under new workbook?
How do I write the code so that all the steps I'm doing (pasting and deleting, etc.)are ran properly no matter what sheet I am in?
Sub Export_Scheduling_New()
'
' Export_Scheduling_New Macro
' Macro recorded 10/12/2002 by Anthony Steen
'
'
Selection.ClearContents
Range("F4").Select
Workbooks.Open Filename:= _
"J:PrimaryInbound Volume TrackingExport from scheduling.xls"
Windows("Master Fluff Log.xls").Activate
ActiveCell.FormulaR1C1 = _
"=SUM('Export from scheduling.xls'!R2C3:'Export from scheduling.xls'!R30000C3)"
Range("F5").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF('Export from scheduling.xls'!R2C2:'Export from scheduling.xls'!R30000C2,""<>"",'Export from scheduling.xls'!R2C4:'Export from scheduling.xls'!R30000C4)"
Range("F4").Select
Selection.Copy
Worksheets("Export").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("F5").Select
Selection.Copy
Worksheets("Export").Select
Range("E3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("F4:F5").Select
Selection.ClearContents
Range("A1").Select
Windows("Export from scheduling.xls").Activate
ActiveWindow.Close
Range("A1").Select
End Sub
How do I write the code so that all the steps I'm doing (pasting and deleting, etc.)are ran properly no matter what sheet I am in?
Sub Export_Scheduling_New()
'
' Export_Scheduling_New Macro
' Macro recorded 10/12/2002 by Anthony Steen
'
'
Selection.ClearContents
Range("F4").Select
Workbooks.Open Filename:= _
"J:PrimaryInbound Volume TrackingExport from scheduling.xls"
Windows("Master Fluff Log.xls").Activate
ActiveCell.FormulaR1C1 = _
"=SUM('Export from scheduling.xls'!R2C3:'Export from scheduling.xls'!R30000C3)"
Range("F5").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF('Export from scheduling.xls'!R2C2:'Export from scheduling.xls'!R30000C2,""<>"",'Export from scheduling.xls'!R2C4:'Export from scheduling.xls'!R30000C4)"
Range("F4").Select
Selection.Copy
Worksheets("Export").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("F5").Select
Selection.Copy
Worksheets("Export").Select
Range("E3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("F4:F5").Select
Selection.ClearContents
Range("A1").Select
Windows("Export from scheduling.xls").Activate
ActiveWindow.Close
Range("A1").Select
End Sub