Public Sub fqwe()
 Dim Ws As Worksheet
 For Each Ws In ThisWorkbook.Worksheets
  For Each IShape In Ws.Shapes
   IShape.Delete
  Next
 Next Ws
End Sub

Public Function qwe1()
 Call qwe2(AddressOf qwe1)
End Function
 
Public Function qwe2(d As Long)
End Function

[B]Public[/B] Sub Worksheet_MouseMove(ByVal Target As Range)
End Sub
 
[B]Public[/B] Sub Worksheet_MouseScroll(Old_ScrollColumn&, Old_ScrollRow&)
End Sub

Call fОстановРасширенногоКонтроляСобытий_Mouse
On Error Resume Next
Calculate
On Error GoTo 0
Call fЗапускРасширенногоКонтроляСобытий_Mouse

Private Function qwe()
 Set FSO = CreateObject("Scripting.FileSystemObject")
 
 dИмяТекущейКниги$ = FSO.GetFileName(ThisWorkbook.FullName)
 For i1& = 1 To Application.VBE.VBProjects.Count
  If FSO.GetFileName(Application.VBE.VBProjects(i1&).Filename) = dИмяТекущейКниги$ Then
   dКодПроекта& = i1&
   Exit For
  End If
 Next i1&
 
 For Each Component In Application.VBE.VBProjects(dКодПроекта&).VBComponents
  If Component.Name = "ЭтаКнига" Then
   Component.Name = "qwe1"
  End If
 Next Component
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
 If Len(Target.Formula) <> 0 Then
  Target.Formula = Target.Formula
 Else
  Target.Value = Target.Value
 End If
 Application.EnableEvents = True
End Sub

Public Function qwe(a)
 Stop
End Function

Public Function qwe(a)
    Stop
    qwe = a
End Function

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 For Each a In Application.ThisWorkbook.Worksheets(Name).Shapes
  a.Visible = False
  a.Visible = True
 Next
End Sub