video1.0<iframe src="https://www.loom.com/embed/073401f46b684702a5b7eacf0d03f9cb" frameborder="0" width="1280" height="960" webkitallowfullscreen mozallowfullscreen allowfullscreen></iframe>9601280Loomhttps://www.loom.com9601280https://cdn.loom.com/sessions/thumbnails/073401f46b684702a5b7eacf0d03f9cb-00001.gif96Sub CopyComments()&nbsp; &nbsp; Dim lFromSlide As Long&nbsp; &nbsp; Dim lToSlide As Long&nbsp; &nbsp; Dim R &nbsp; &nbsp; &nbsp;As Long&nbsp; &nbsp; lFromSlide = InputBox("Copy comments from slide:", "SLIDE")&nbsp; &nbsp; lToSlide = InputBox("Copy comments to slide:", "SLIDE")&nbsp; &nbsp; Dim oFromSlide As Slide&nbsp; &nbsp; Dim oToSlide As Slide&nbsp; &nbsp; Set oFromSlide = ActivePresentation.Slides(lFromSlide)&nbsp; &nbsp; Set oToSlide = ActivePresentation.Slides(lToSlide)&nbsp; &nbsp; Dim oSource As Comment&nbsp; &nbsp;Dim oTarget As Comment&nbsp; &nbsp; For Each oSource In oFromSlide.Comments&nbsp; &nbsp; &nbsp; &nbsp; Set oTarget = ActivePresentation.Slides(lToSlide).Comments.Add _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (oSource.Left, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;oSource.Top, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;oSource.Author, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;oSource.AuthorInitials, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;oSource.Text)&nbsp; &nbsp; &nbsp; &nbsp; If oSource.Replies.Count &gt; 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For R = 1 To oSource.Replies.Count&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; oTarget.Replies.Add2 oSource.Left, oSource.Top, oSource.Author, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; oSource.AuthorInitials, oSource.Replies(R).Text, oSource.ProviderID, oSource.UserID&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next R&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; NextEnd Sub