Need help with loops

[Needtoknow]

Hey All,
I have a code that calls another part of the code that basically draws arrows. But I want the code to look at another sheet called "Task Name" and only at columns to get the From and To cell locations to help draw the arrows.

Task Names
From To
Task A E11 Task B G11
Task B G11 Task C O1
Task B G11 Task D O22


I have no idea how to do it... all I have is this:

For Each Cell In rng
Call DrawArrows(Cells(a, b), Cells(c, d), RGB(0, 0, 255))
Next Cell

I want it to loop through the range, but only for the columns on the Task name sheet and if possible go down the columns named "From" and "To"
Thanks,
Jim

 

[ranman256]

sheets("Task Name").select
'run draw arrows
sheets("AnotherSheet").select
'run draw arrows

 

[Needtoknow]

Nope. I need to know how to get the text from the other cells and run it thru my other code.


Sub AddArrows()
'Call DrawArrows(Range("E11"), Range("G11"), RGB(0, 0, 255))
'Call DrawArrows(Range("b1"), Range("c4"), , "Line")
'Call DrawArrows(Range("b1"), Range("c4"), RGB(0, 0, 255), "Double")


Dim rng As Range
Dim Cell As Range
Set rng = Range("B3:B5")
Set rng2 = Range("D3:D5")
Dim i As Integer
Dim j As Integer

For Each Cell In rng

For i = 1 To 6
For j = 1 To 2
Call DrawArrows(Cells(a, b), Cells(c, d), RGB(0, 0, 255))
Next j
Next i

Next Cell

End Sub