Macro to create a picture of the selection

---

Create a picture of the selection

---

Sub SelectionTPicture()
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Pictures.Paste.Select
End Sub

---

How to use codes shared here?