Excel Macro

F

Frank

Two Questions:

1: When I post a reply say a week later will it post for
the current date or be unseen because it is being posted
to the original date?

2: Could someone clarify the macro below. As I understand
it I would replace wb1,2 & 3 with the actual names of the
workbooks however I am not sure about the rest of the
macro. How does the : work. I know it is a range but how
does it find it. The code will not let me step throught
it.

Thanks Frank

Use this loop

Sub loopwbs()
Dim myarr() As Variant
Dim wbName As Variant
Dim wb As Workbook
myarray = Array("wb1.xls", "wb2.xls", "wb3.xls")
For Each wbName In myarray
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" _
& wbName)
wb.Activate

With Sheets("sheet1")
'=====code below
' .Range("a1").Formula = "=1*2"
...Range("B8").Formula= "='[TTW Cap ModelDverticaltest1.xls]
Vertical'!R63C4"
...Range("C6").Formula= "='[TTW Cap ModelDverticaltest1.xls]
Vertical'!R38C4"
...Range("C7").Formula= "='[TTW Cap ModelDverticaltest1.xls]
Vertical'!R40C4"
...Range("D6").Formula= "='[TTW Cap ModelDverticaltest1.xls]
Vertical'!R42C4"
...Range("D7").Formula = "='[TTW Cap
ModelDverticaltest1.xls]Vertical'!R44C4"
'======code above
End With

wb.Close True
Next wbName
End Sub


 
Top