Neat looking table, I've only played a few times and not on my cabinet but seems to be fun. To get the popups to stop change lines 88 to 96 to the following, basically hard coding the number of balls and the play option and commenting out the inputbox.
Function chBall()
BNumb=3 'InputBox("Balls per Game: 3 or 5","What is your NUMBER?",3)
BtP=BNumb+1
End Function
Function chStyle()
GStyle=1 'InputBox("'Replays' = 1 or 'Extra Balls' = 2","What is your STYLE?","1")
GetTHs()
End Function
Or 5 and 2 if you want 5 balls and extra balls instead of replays.