R
Rod Taylor
this works great if int_Start is in a column but what if it is a row I can't
seem to get it to work
For Each cell In Range("int_Start")
If cell.Value = CON_int_UD Then
MsgBox (d)
Select Case d
Case 1
Set int_rng = Range("INT1")
Case 2
Set int_rng = Range("INT2")
seem to get it to work
For Each cell In Range("int_Start")
If cell.Value = CON_int_UD Then
MsgBox (d)
Select Case d
Case 1
Set int_rng = Range("INT1")
Case 2
Set int_rng = Range("INT2")