M
madboy_1
Hi,
dont shoot me down in flames as im a newbie I have an add in that
was kindly made by a collegue of mine It uses various functions and
has no subroutines. The add in works when you highlight a cell and
press the add in.
Im trying to make a sub routine that will call run this add in for
every cell . For some odd reason only the last cell in the list works
correctly and all the others are skipped
can anyone help ?
Range("A1").Select
Dim i As String
i = ActiveCell
If i > "" Then
Application.Run "Myprogram.xla!RALShowmetherecord()"
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
dont shoot me down in flames as im a newbie I have an add in that
was kindly made by a collegue of mine It uses various functions and
has no subroutines. The add in works when you highlight a cell and
press the add in.
Im trying to make a sub routine that will call run this add in for
every cell . For some odd reason only the last cell in the list works
correctly and all the others are skipped
can anyone help ?
Range("A1").Select
Dim i As String
i = ActiveCell
If i > "" Then
Application.Run "Myprogram.xla!RALShowmetherecord()"
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub