With a Worksheet_Change event procedu

'-----------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lColumn As Long
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
For lColumn = 2 To 5
Columns(lColumn).Hidden = lColumn Range("A2").Value
Next lColumn
End Sub
'-------------------------------------------------------------------

See example: http://cjoint.com/?hkljrxXed6

HTH
--
AP

a écrit dans le message de news:
...
Hello All

I have a worksheet which calculates payback percentages for Slot
machines, based on how many coins a person plays. Since machines vary
in the amount of coins they are allowed to play, I have the sheet set
up from one coin up to five coins. On the sheet, if they enter the
amount of coins, it should hide the columns that are not needed... eg:
If it is 3 coin machine, it will hide the calculation columns for the
fourth and fifth coin. If, after that, they change the number to 2
coins, it should hide the third coin calculation column, and so on. I
tried achieving this with a Case... Select approach, but I have having
no luck at all.
If anyone has some sort of basic code that hides a column in the same
sheet, based on a numeric input in a cell on that same sheet, please
help. Thank you for your time.