Avoiding goto

[Antonio]

How do I avoid the goto line1 and goto line2 in the following code?

For client_index = 1 To number_of_clients

If shares_traded_for_client(client_index) = 0 Then GoTo line1


(..more code..)

If asset_class = "INDEX" Then GoTo line2

(...more code..)

line2:

ActiveWorkbook.Close SaveChanges:=True

line1:

Next client_index


(... more code...)

 

[Antonio]

done

For client_index = 1 To number_of_clients

If Not shares_traded_for_client(client_index) = 0 Then


(..more code..)

If Not asset_class = "INDEX" Then

(...more code..)

End If

ActiveWorkbook.Close SaveChanges:=True

End If

Next client_index


(... more code...)

 

[Tom Ogilvy]

For client_index = 1 To number_of_clients

If shares_traded_for_client(client_index) <> 0 Then

If asset_class <> "INDEX" Then

(...more code..)

End if

ActiveWorkbook.Close SaveChanges:=True
End if

Next client_index