Hi Craig
How about something like this:
Sub test()
Dim DataCell As Range
Dim RangeCell As Range
For Each DataCell In Range("A1:A3")
Set RangeCell = DataCell.Offset(0, 1)
Range(RangeCell).Value = DataCell.Value
Next
End Sub
This obviously assumes that the ranges A1:A3 contain your data and B1:B3
contains the corresponding addresses where you would like to insert the
values.
Hope this helps!
Regards
Jane Pratt
Developer Tools Support
Microsoft UK
This posting is provided "AS IS" with no warranties, and confers no rights.
Use of included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm.