Y doens't this work?
that's stupid of me...
thnka a bunch!
"Mike H" wrote:
Stephen
I'm unsure what it is you writing to eacg range but this now loops through
each sheet and writes it
Sub SetReferences()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Select
Cells(1, 2).Value = "='R:\...\...\...\...\...\...\[S1.CSV]S1'!A1"
Cells(1, 3).Value = "='R:\...\...\...\...\...\...\[S1.CSV]S1'!B1"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B300"), Type:=xlFillDefault
Range("B1:B300").Select
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C300"), Type:=xlFillDefault
Range("C1:C300").Select
Next ws
End Sub
Mike
"Stephen" wrote:
Sub SetReferences()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
For i = 1 To 1
Cells(i, 2).Value = "='R:\...\...\...\...\...\...\[S1.CSV]S1'!A1"
Cells(i, 3).Value = "='R:\...\...\...\...\...\...\[S1.CSV]S1'!B1"
Next i
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B300"), Type:=xlFillDefault
Range("B1:B300").Select
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C300"), Type:=xlFillDefault
Range("C1:C300").Select
End With
Next ws
End Sub
i'm simply trying to loop through all 52 of my sheets and fill B:C 1-300
with the value.
|