Sub Copy_Paste()
'
' Copy_Paste Macro
' Macro recorded 4/8/2008 by autpbg1
'
'
Application.ScreenUpdating = False
Dim MyPath As String
Dim MyFileName As String
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("S- Overnight Rates ").Select
Range("X4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S - 2 Day Rates").Select
Range("X4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("4900_B").Select
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Call Loop_Example
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S- Overnight Rates ").Select
Range("Y4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S - 2 Day Rates").Select
Range("Y4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("4900_B").Select
Range("G2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Call Loop_Example
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S- Overnight Rates ").Select
Range("Z4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S - 2 Day Rates").Select
Range("Z4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("4900_B").Select
Range("K2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Call Loop_Example
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S- Overnight Rates ").Select
Range("AA4:AA5").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S - 2 Day Rates").Select
Range("AA4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("1900_D").Select
Range("c2:c101").Select
'Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
'ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S- Overnight Rates ").Select
Range("AB4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S - 2 Day Rates").Select
Range("AB4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S- Overnight Rates ").Select
Range("AC4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S - 2 Day Rates").Select
Range("AC4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S- Overnight Rates ").Select
Range("AD4:AD5").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells((Selection.Count + 1), 1).Select
Sheets("S - 2 Day Rates").Select
Range("AD4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Text_Out_Put_File").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
MyPath = "S:\SUPPORT\CADTAR\CMS\!Exported_Text_Files!\"
MyFileName = "d" & Sheets("INPUT_A").Range("A1").Value & "MR"
ActiveWorkbook.SaveAs Filename:=MyPath & MyFileName, _
FileFormat:=xlText, CreateBackup:=False
End Sub
Ok, there is some thing strange happing here. After I got you reply, I
update the code, but did not save it. I wanted to test it first. It ran and
worked, now I'm trying to update the work sheet and save it, but it does not
work. Can you look at my code and mybe see where the problem is. I had to do
the workbook all over agian, but I guess that may remove the bug. There is no
error, it's just not picking up the data in cell A1 sheet INPUT_A.