Koşullu drop drowna bilgi ekleme

[Sa.NaL]

Merhaba benim excel uzmanı arkadaşlardan ricam excel sayfasına eklediğim comboboxın içine koşula göre belirli hücre arasındaki bilgiyi aktarmaya çalışıyorum ama beceremedin yardım cı olurmusunuz?

if sheets(1).range("A1").value="1" then
ActiveSheet.Shapes("Drop Down 1").Select
With Selection
.ListFillRange = "$H$5:$H$10"
.LinkedCell = ""
.DropDownLines = 8
.Display3DShading = False
End With
end if

Bu kodları giriyorum olmuyor...

 

[Sa.NaL]

Bo kodda ner var allah aşkına hata veriyor tam burasında
'ActiveSheet.Shapes("Drop Down 1393").Select'


Sub Açılan1391_Değiştir()
If Sheets("Arıza Eki").Range("A117").Value = "5" Then
ActiveSheet.Shapes("Drop Down 1393").Select
With Selection
.ListFillRange = "Arıza Eki!$B$26:$B$27"
.LinkedCell = ""
.DropDownLines = 8
.Display3DShading = False
End With
End If
End Sub