Public Function jsPW(ByVal pWk As Integer) As String

Dim pd%, wk%

' Supply pWk as LIP Calendar number (1 - 156)

On Error GoTo hndErr

wk% = 1 + ((pWk - 1) Mod 4)
pd% = 1 + (Int((pWk - wk%) / 4) Mod 13)

jsPW = "Pd." & pd% & " Wk." & wk%

Exit Function

hndErr:
jsPW = "-"

End Function


Problem: This function is used in many sheets of the application where
in the formulae bar we have =jspw($E$645) and the cell 645 has some
value. this formulae is used in 8 cells.

When in the code i set back to automatic generally this loop runs 8
times for other reports but this sepecific report keeps on running
this and hangs.

I am not knowing how to get the answer as i do not know why it is
continuosly looping.

How to break the code to cells which are calling it and using it when
the calculation is set to automatic.

Regards,

Prince