Copy Specific Text String To Clipboard At End Of Macro
Hello all,
I need to manually input some data from each day of the year by saving certain excel files all under the name "Test Slide Distribution" and I am tired of typing in the SaveAs window that phrase hundreds of times. Is there a way I can add the specific phrase "Test Slide Distribution" to be copied to the clipboard so I can simply hit control V and paste in the SaveAs window after I run my Macro's needed to get data compiled each day?
This is my current code, and I would like to add the phrase to the clipboard after this final macro:
Sub Get_WTP_Data_Feb22()
'
' Get_WTP_Data_Feb22 Macro
'
'
Sheets("Data Today").Select
Range("B37:F64").Select
Selection.Copy
Sheets("WTP").Select
ActiveWindow.ScrollRow = 6386
ActiveWindow.ScrollRow = 6366
ActiveWindow.ScrollRow = 6315
ActiveWindow.ScrollRow = 6255
ActiveWindow.ScrollRow = 6225
ActiveWindow.ScrollRow = 6174
ActiveWindow.ScrollRow = 6144
ActiveWindow.ScrollRow = 5234
ActiveWindow.ScrollRow = 4931
ActiveWindow.ScrollRow = 4658
ActiveWindow.ScrollRow = 3436
ActiveWindow.ScrollRow = 3062
ActiveWindow.ScrollRow = 2981
ActiveWindow.ScrollRow = 2769
ActiveWindow.ScrollRow = 2557
ActiveWindow.ScrollRow = 2314
ActiveWindow.ScrollRow = 2244
ActiveWindow.ScrollRow = 1193
ActiveWindow.ScrollRow = 1051
ActiveWindow.ScrollRow = 607
ActiveWindow.ScrollRow = 536
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 294
ActiveWindow.ScrollRow = 223
ActiveWindow.ScrollRow = 203
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 1
Range("A1").Select
Selection.End(xlDown).Offset(1).Select
ActiveCell.PasteSpecial xlPasteValues
End Sub
|