hi i want to run this macro daily; so the name of the excel file john.xls changes daily; what do i need to put in my code to allow it to run.
here is my code;
EDIT: added code tags
NOTE: please only hit the "SUBMIT" button 1x
Moderator
here is my code;
Code:
Sub DAILY_RUN()
'
' DAILY_RUN Macro
Application.CutCopyMode = False
Workbooks.Open Filename:="M:\Reports\SVP1-WFR.csv"
Range("B2:C39").Select
Selection.Copy
Windows("john.xls").Activate
Sheets("EUR").Select
Range("X2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SVP1-WFR.csv").Activate
ActiveWindow.SmallScroll Down:=-18
Range("E2:F39").Select
Application.CutCopyMode = False
Selection.Copy
Windows("john.xls").Activate
Sheets("GBP").Select
Range("AB2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("SVP1-WFR.csv").Activate
ActiveWindow.SmallScroll Down:=-15
Range("H2:I40").Select
Application.CutCopyMode = False
Selection.Copy
Windows("john.xls").Activate
Sheets("USD").Select
Range("Z2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("R2:R26").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0"
Sheets("EUR").Select
Range("R2:R25").Select
Selection.NumberFormat = "0"
Sheets("GBP").Select
Range("T2:T28").Select
Selection.NumberFormat = "0"
End Sub
EDIT: added code tags
NOTE: please only hit the "SUBMIT" button 1x
Moderator