bethrah
08-01-2013, 12:27 PM
I have created a group using the code below to create a header: but however with this group , i will need to set a target for each tool group.
Dim LastRowColD As Integer
LastRowColD = Range("A65536").End(xlUp).Row
Range("Y2:Y" & LastRowColD).Select
With Selection
.FormulaR1C1 = "=LEFT(RC4,4)"
End With
Sheets("Chart").Activate
ThisWorkbook.RefreshAll
Dim LastRowColD As Integer
LastRowColD = Range("A65536").End(xlUp).Row
Range("Y2:Y" & LastRowColD).Select
With Selection
.FormulaR1C1 = "=LEFT(RC4,4)"
End With
Sheets("Chart").Activate
ThisWorkbook.RefreshAll