Dear all 大大
1.有書寫圖一程式
1.1 其中 Text Box 62560 日久忘記於表單何處.有無辦法尋找它於表單何處??
2.煩不吝賜教 thanks*10000
圖一
Sub TEXTBOX62560刪除1()
Sheet14.Select
Range("A1").Select
Y = Sheet3.Range("D218")
If Y - 1 = 0 Then
ActiveSheet.Shapes("Text Box 62560").Select
Selection.Delete
End If
Range("A1").Select