Modify Code for multiple objects and cells

[jeffst]

Hello,

I am a novice with VBA, but I was able to get this code to work. The problem is that I want the code to apply to 29 other objects. the range of cells are from row 118 to row 123 and columns 26 to 30 (30 cells total). Each object is tied to the outcome of each cell. If the cell is blank, the corresponding object is not visible. How can I add to this code to get it to apply to all of my 30 objects?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 118 And Target.Column = 26 Then
If Target.Value <> vbNullString Then
ActiveSheet.Shapes("Arc 120").Visible = True
Else
ActiveSheet.Shapes("Arc 120").Visible = False
End If
End If
End Sub

 

[John_w]

I don't know why you're getting that error. Are you putting the code in the sheet module of the sheet containing the Z118:AD123 cells? Right-click the sheet tab and click View Code.

 

[jeffst]

I was testing out a duplicate of the same sheet with your other code on it. I deleted the duplicate sheet and now the VBA code is working. Thanks so much for your help!