try deleting the () from taskfinder().

Get back if it does/doesn't work.

..and shouldn't
iif(TF(i)<TF(task),task=i,task=task)
be
task = IIf(TF(i) < TF(task), i, task)

?

If this is a Cut/Paste, there is a clue in that your

Sub Macro1()

ends with
end sub ' No big "E"

instead of with
End Sub ' Big "E"

The words "End Sub" should also be highlighted to indicate they are
recognized.

Also, a Call has no () unless passing variables:

The line
taskfinder()
should be
taskfinder
or
Call taskfinder


If you put the word "Call" in there, it will be highlighted to
indicate it is recognized as you enter it.

Cld you answer me few questions from your code?

Sub Macro1()
m=4
n=6
taskfinder() // Simply replace it with Call taskfinder.
end sub

Public Sub taskfinder()
task = 1
For i = 1 To n
For j = 1 To m
TF(i) = TF(i) + 1 //Is TF an array?
If it is then it wld work, you just need to declare one global array as TF.
Next
iif(TF(i)<TF(task),task=i,task=task)
Next
End Sub