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...)

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...)



"Antonio" wrote:

> 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...)
>
>

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

--
Regards,
Tom Ogilvy


"Antonio" wrote:

> 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...)
>
>