[Excel VBA] 個人的に作業がはかどった自作Excelショートカット

 1'******************************************************************************************
 2'*関数名    ：copyCellValueToCB
 3'*機能      ：アクティブセル内容をクリップボードにコピー
 4'*引数(1)   ：無し
 5'******************************************************************************************
 6Public Sub copyCellValueToCB()
 7
 8    '定数
 9    Const FUNC_NAME As String = "copyCellValueToCB"
10
11    '変数
12
13    On Error GoTo ErrorHandler
14    '---以下に処理を記述---
15
16
17    'クリップボードに文字列を格納
18    With CreateObject("Forms.TextBox.1")
19        .MultiLine = True
20        .Text = CStr(ActiveCell.Value)
21        .SelStart = 0
22        .SelLength = .TextLength
23        .Copy
24    End With
25
26ExitHandler:
27
28    Exit Sub
29
30ErrorHandler:
31
32        MsgBox "エラーが発生しましたので終了します" & _
33                vbLf & _
34                "関数名：" & FUNC_NAME & _
35                vbLf & _
36                "エラー番号" & Err.Number & Chr(13) & Err.Description, vbCritical
37
38        GoTo ExitHandler
39
40End Sub

 1'******************************************************************************************
 2'*関数名    ：ZOrderToFront
 3'*機能      ：
 4'*引数(1)   ：
 5'******************************************************************************************
 6Public Sub ZOrderToFront()
 7    
 8    '定数
 9    Const FUNC_NAME As String = "ZOrderToFront"
10    
11    '変数
12    
13    On Error GoTo ErrorHandler
14    
15    Selection.ShapeRange.ZOrder msoBringToFront
16
17ExitHandler:
18
19    Exit Sub
20    
21ErrorHandler:
22    
23    If Err.Number = 438 Then
24        MsgBox "オブジェクトを選択してから実行してください。", vbExclamation, "警告"
25    Else
26        MsgBox "エラーが発生したため、マクロを終了します。" & _
27               vbLf & _
28               "関数名：" & FUNC_NAME & _
29               vbLf & _
30               "エラー番号：" & Err.Number & vbNewLine & _
31               Err.Description, vbCritical, "エラー"
32    End If
33    GoTo ExitHandler
34        
35End Sub
36

1Selection.ShapeRange.ZOrder msoSendToBack