N
Nicole
I have created a macro in a workbook that has multiply
worksheets (tabs). The macro works great on the worksheet
where the macro was created. However, when I move to a
different "tab", the macro goes back to tab where is was
created and runs the macro. I want to create/change my
macro to a "universal" marco, where I can go to any "tab"
and the macro will function properly. To follow is the
script for my macro. Thanks for any help.
Sub quickfix()
'
' quickfix Macro
' Macro recorded 9/15/2003 by nnoonchester
'
' Keyboard Shortcut: Ctrl+u
'
Sheets("Chandler, Darrell (2)").Select
Columns("D:E").Select
Range("D4").Activate
Selection.Copy
Sheets("Sheet1 (126)").Select
Columns("D").Select
Selection.Insert Shift:=xlToRight
Sheets("Chandler, Darrell (2)").Select
Columns("H:H").Select
Range("H4").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1 (126)").Select
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Sheets("Chandler, Darrell (2)").Select
Range("F9:G48").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1 (126)").Select
Range("F9").Select
ActiveSheet.Paste
Sheets("Chandler, Darrell (2)").Select
Range("I10:I48").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1 (126)").Select
Range("I10").Select
ActiveSheet.Paste
Columns("D").Select
Selection.EntireColumn.Hidden = True
Range("A3").Select
End Sub
worksheets (tabs). The macro works great on the worksheet
where the macro was created. However, when I move to a
different "tab", the macro goes back to tab where is was
created and runs the macro. I want to create/change my
macro to a "universal" marco, where I can go to any "tab"
and the macro will function properly. To follow is the
script for my macro. Thanks for any help.
Sub quickfix()
'
' quickfix Macro
' Macro recorded 9/15/2003 by nnoonchester
'
' Keyboard Shortcut: Ctrl+u
'
Sheets("Chandler, Darrell (2)").Select
Columns("D:E").Select
Range("D4").Activate
Selection.Copy
Sheets("Sheet1 (126)").Select
Columns("D").Select
Selection.Insert Shift:=xlToRight
Sheets("Chandler, Darrell (2)").Select
Columns("H:H").Select
Range("H4").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1 (126)").Select
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Sheets("Chandler, Darrell (2)").Select
Range("F9:G48").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1 (126)").Select
Range("F9").Select
ActiveSheet.Paste
Sheets("Chandler, Darrell (2)").Select
Range("I10:I48").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1 (126)").Select
Range("I10").Select
ActiveSheet.Paste
Columns("D").Select
Selection.EntireColumn.Hidden = True
Range("A3").Select
End Sub