VBAでスクリーンショットをシートに貼り付ける際のコード[No25]

VBAでスクリーンショットを取得した後にシートに貼り付ける際に利用するコードです。
関数化しています。このまま利用する際は引数をご指定下さい。
例：Call 関数名("Sheet1","A1")

Public Sub 関数名(ByVal sheetName As String, ByVal rangeNo As String)
    Worksheets(sheetName).Activate
    Range(rangeNo).Select
    ActiveSheet.Paste    'または、SendKeys "+(^V)", True
End Sub

最後までお付き合いいただきありがとうございます！

この情報が誰かの役にたてれば幸いです。