For me NJDude-s solution is not acceptable because I need indexes.
What do you mean by "indexes"?
For I = 1 to m
For J = 1 to n
If J = K Then
saveI = I
saveJ = J
I = m
Exit
End If
Next
Next