Hi, I'm sure what I'm about to ask is very simple but I just can't seem to find the answer anywhere. I have written a Macro that works in one cell but I can't seem to copy it so it works on all the other cells in a column. I am using the macro to hide multiple columns when a user selects a value from a validated list, the idea being that if they select a product, say 'Chest of Drawers', then they will only be able to see columns relevant to data you might apply to describe a chest of drawers. That works fine, but once they have applied data for the Chest of Drawers they will then need to do the same for lots of other furniture pieces. So they will then need to select the next piece of furniture on the next row and I want the macro to do the same thing and hide irrelevant columns and show relevant ones. I'm assuming I need to tell the macro to run on active cell but I need help. Can you help please? This is my code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("ar1") Then
If Range("ar1").Value = "Wardrobe" Then
Columns("AT:BC").EntireColumn.Hidden = True
Columns("AS").EntireColumn.Hidden = False

End If

If Range("ar1").Value = "Dressing Table Stool" Then
Columns("AS:BA").EntireColumn.Hidden = True
Columns("BB").EntireColumn.Hidden = False

End If

If Range("ar1").Value = "Chest of Drawers" Then
Columns("AS").EntireColumn.Hidden = True
Columns("AU:BB").EntireColumn.Hidden = True
Columns("AT").EntireColumn.Hidden = False

End If

If Range("ar1").Value = "Bedside Table" Then
Columns("AS:AT").EntireColumn.Hidden = True
Columns("AV:BB").EntireColumn.Hidden = True
Columns("AU").EntireColumn.Hidden = False

End If

If Range("ar1").Value = "Dressing Table" Then
Columns("AS:AU").EntireColumn.Hidden = True
Columns("AW:BB").EntireColumn.Hidden = True
Columns("AV").EntireColumn.Hidden = False

End If

If Range("ar1").Value = "Underbed Storage" Then
Columns("AS:AV").EntireColumn.Hidden = True
Columns("AX:BB").EntireColumn.Hidden = True
Columns("AW").EntireColumn.Hidden = False

End If

End If

End Sub