Cacher is the code snippet organizer for pro developers

Public Sub gWriteRand()
On Error GoTo ERR_SEC
Const C_PROC_NAME As String = "[gWriteRand]"
Dim lbRet As Boolean
Dim lsMsg As String
Dim lobjSheet As Worksheet
Dim i As Long, j As Long

	'--- 初期値セット ---
	lbRet = False
	
	'--- 乱数ジェネレータを初期化する ---
	Randomize
	
	Set lobjSheet = ThisWorkbook.Worksheets("Sheet1")

	'--- 16*16の乱数表を作成 ---
	k = 0
	With lobjSheet
		For i = 1 To 16
			For j = 1 To 16
				.Cells(i, j).Value = Int((Rnd * 10))
			Next j
		Next i
	End With
	
	'--- 正常終了 ---
	lbRet = True
EXIT_SEC:
On Error Resume Next
	Set lobjSheet = Nothing
	
	If lbRet Then
		MsgBox "正常終了"
	Else
		MsgBox lsMsg
	End If
	
	Exit Sub

ERR_SEC:
	lsMsg = "予期せぬエラーが発生しました。" & vbCrLf & _
			"プロシージャ名： " & C_PROC_NAME & vbCrLf & _
			"エラー番号：" & Err.Number & vbCrLf & _
			"エラー内容：" & Err.Description
	GoTo EXIT_SEC
End Sub