change name of cells if other cell changes name?

[JMITCH26]

How can I change name of cells if 1 cell changes name.

If A1 has the name "Store Rack 1"
then Cells display names Pens, platic Bags, Paper in cells D5, F5, H5

If A1 has the name "Store Rack 2"
then Cells display names eraser, Box, Pencil in cells D5, F5, H5

Example:1
If Cell A1 = Store Rack 1

Then
Cell D5 = Pens
Cell F5 = Plastic Bags
Cell H5 =Paper

Example:2
If Cell A1 = Store Rack 2

Then
Cell D5 = easer
Cell F5 = Box
Cell H5 =pencil

any help on this will be great.

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

When you enter the proper value in Range("A1") the script will run.

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  1/21/2019  1:09:02 AM  EST
If Target.Address = Range("A1").Address Then
    If Target.Value = "Store Rack 1" Then
        [D5] = "Pens"
        [F5] = "Plastic Bags"
        [H5] = "Paper"
    End If
    If Target.Value = "Store Rack 2" Then
        [D5] = "eraser"
        [F5] = "Box"
        [H5] = "Pencil"
    End If
End If
End Sub

 

[My Aswer Is This]

Or if you plan to do a lot more this may be easier.

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  1/21/2019  1:26:02 AM  EST
If Target.Address = Range("A1").Address Then
Select Case Target.Value
    Case "Store Rack 1"
        [D5] = "Pens"
        [F5] = "Plastic Bags"
        [H5] = "Paper"
    Case "Store Rack 2"
        [D5] = "eraser"
        [F5] = "Box"
        [H5] = "Pencil"
End Select
End If
End Sub

 

[JMITCH26]

That is working.. Not sure they will let us run macros at work but it is working at home thank you.

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

That is working.. Not sure they will let us run macros at work but it is working at home thank you.