Have you tried stepping through the code with the debugger on? It’s probably the fastest way to find the problem. Here are some things to consider, though:
For this line:
If workA = doc.actionitems(0) Then
Are you sure actionitems(0) is an integer? You may want to force conversion to an integer or test what type of data it is ahead of time.
BTW, if the above IF statement evaluates to True, then you set a flag (alcount) to True. Later, if this flag is set, bUpdate is set to True, which causes the doc to be saved. Is that what you want?