[vba]
For Each cell in Range("MyRange")
If cell.Value Then
Workbooks.Open cell.Offset(0, 1).Value2
Exit For
End If
Next cell
[/vba]
[vba]
For Each cell in Range("MyRange")
If cell.Value Then
Workbooks.Open cell.Offset(0, 1).Value2
Exit For
End If
Next cell
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote