Refresh is working for only the selected requirements in ALM 11.52

Hi,

Below code is working only when i particularly select a requirement in ALM. But what i require is, when i click on the refresh button, then all the requirements present in ALM should execute this code.

Without FOR loop also it is having the same issue.

Function Requirements_ActionCanExecute(ActionName)
On Error Resume Next
Dim EstEffort, ActEffort, Temp, ReqCount
Dim i

Requirements_ActionCanExecute = True
  If ActionName = "actFilterRefresh"     Then

    ReqCount = Req_Fields.Count

    'Msgbox ReqCount

      For i = 1 to ReqCount
        EstEffort=Req_Fields.Field("RQ_USER_03").Value  'Assigining Estimation Effort value to EstEffort variable
        'Msgbox EstEffort

          If (EstEffort > 0) Then
            ActEffort=Req_Fields.Field("RQ_USER_05").Value  'Assigining Actual Effort value to ActEffort variable
            'Msgbox ActEffort
            Temp=(ActEffort/EstEffort)*100                 'Calculating the percentage and assigning to Temp variable
            'Msgbox Temp
            Req_Fields.Field("RQ_USER_06").Value=Round(Temp,2)       'Assigning the Percentage temp value to Devlopment Complete %

       
            Actions.Action("actFilterRefresh").Execute

            'Msgbox Req_Fields.Field("RQ_USER_06").Value

          End If
      Next
  End If
On Error GoTo 0
End Function

There is some issue in this code. Please help me to fix it.

Thanks.