title: Invalid procedure call or argument exception
body: <p>While this Excel file was working, it suddenly started giving the error.</p>
  <blockquote>
  <p>Invalid procedure call or argument</p>
  </blockquote>
  <p><img src="https://i.stack.imgur.com/5nyLE.png" alt="Error image" /></p>
  <p><img src="https://i.stack.imgur.com/zFo6F.png" alt="macro window" /></p>
  <p><img src="https://i.stack.imgur.com/doCXd.png" alt="Error code" /></p>
  <pre class="lang-vb prettyprint-override"><code>Sub yazdir() //it gives the error here
  Dim bul, dolu As Range
  Dim gos As String
  Sheets(5).DrawingObjects.Delete
  For Each dolu In Sheets(1).Range(&quot;Veri3&quot;)
          If dolu.Value &lt;&gt; 0 Then
          say = say + 1
          End If
  
  Next dolu
  For Each bul In Sheets(1).Range(&quot;Veri3&quot;)
  If bul.Value &lt;&gt; 0 Then
      yer = bul.Row
      With Sheets(2)
     .Range(&quot;g7&quot;).Value = Sheets(1).Range(&quot;k&quot; &amp; yer).Value
     
      End With
       say1 = say1 + 1
       gos = say1 &amp; &quot;/&quot; &amp; say
      Sheets(2).Range(&quot;a17&quot;).Value = gos
  
    
  
  ActiveSheet.Pictures.Paste.Select
  'ActiveSheet.Shapes.Range(Array(&quot;Picture 8&quot;)).Select
  'ActiveWindow.SmallScroll Down:=24
  Sheets(2).Activate
  End If
  Next bul
  Sheets(5).Select
  'Application.OnKey &quot;^{p}&quot;
  Application.Dialogs(xlDialogPrint).Show
  'Application.ScreenUpdating = True
  'Sheets(5).PrintOut
  Sheets(1).Select
  
  End Sub
  </code></pre>