Then from there this is the code in the main section

Private Sub Gemwon2_Click()

Sheets("Rift_raid").Visible = True
GemRowloc = 13 'Column M
GemColloc = 4 ' Row 4

Gemlist.Show

End Sub


So what I want to happen is :

I click a control button located in a cell next to a name of a user.
that then brings up a form where I select the "gem"
the script then returns then selceted Gem name and its underlying value in
the cells next to the username.

THe user name list is 30 long, therefore I'm trying to do this in
subroutines .... ( i.e. I don't really want to replicate 30 forms that do the
same thing :P )

Thanks heaps as usual , you guys rock.