Little Problem in My Sub

[PVJsquad]

this is a sub

```
Sub SetGuildLogo(ByVal Index As Long)

Dim i As Long

i = rand(1, MAX_GUILD_LOGO)

'i = 8

GuildData(Index).Guild_Logo = i

Call SaveGuild(Index)

Call SavePlayer(Index)

PlayerMsg Index, "Logo Guild Kamu Secara Acak [" & GuildData(Index).Guild_Logo & "].", BrightGreen

'Update user for guild name display

Call SendPlayerData(Index)

End Sub
```

why when i call the sub it will sound "Subscript Out Of Range" on the line to

```
GuildData(Index).Guild_Logo = i
```

[Wortel Angels]

Hold the youse over every word and see on which it shows you the Subscript out of range

That maybe help :-)

Else write which word is the Subscript out of range

[abhi2011]

I am not sure but maybe index might be greater than MAX_GUILDS(If there is one)

If so add a check after declaring 'i'. Here is how it should be

```

if index < 1 or index > max_guilds then exit sub

```

[PVJsquad]

Thank

> I am not sure but maybe index might be greater than MAX_GUILDS(If there is one)
>
> If so add a check after declaring 'i'. Here is how it should be
>
> ```
>
> if index < 1 or index > max_guilds then exit sub
>
> ```

Thank you is helped

[abhi2011]

Glad i could help