VBA to replace VBA ?

[kevinsnewmatrix]

I have 9 workbooks that need to be updated to the newest ISO week number. each workbook has 2 modules that referance the week number.

I would like to replace them all at 1 shot. not using replace all but using vba. Maybe pull the week number from a cell ??

Sheets("Today").Select
    Range("A1").Select
    Workbooks.Open Filename:="P:\Ea\AS\W 32\Points1-MON-Today.xls"
    Range("A1:K1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Week 32.xlsm").Activate
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("Tomorrow").Select
    Workbooks.Open Filename:="P:\Ea\AS\W 32\Points2-MON-Tomorrow.xls"

The 32 in this case needs to be replaced with 33.

 

[Jonmo1]

yes, you could pull the week number from a cell...
Say E1 for example

Dim WkNum As Long
WkNum = Sheets("Today").Range("E1")
Workbooks.Open Filename:="P:\Ea\AS\W " & WkNum & "\Points1-MON-Today.xls"


Hope that helps.