【Excel】コピペ作業を何度も再現させるシートの準備

Sub AUTO_OPEN()
'
' シートOPENはいつも実行する
'
Dim i As Integer
Dim sh_nm As String

For i = 1 To 12
    sh_nm = i & "R"
    Sheets(sh_nm).Select
    Columns("A:N").Select
    Selection.NumberFormatLocal = "@"
    Cells(1, 1).Select
    
    sh_nm = i & "RODDS"
    Sheets(sh_nm).Select
    Columns("A:N").Select
    Selection.NumberFormatLocal = "@"
    Cells(1, 1).Select
Next i

Sheets("MEMO").Select
Cells(1, 1).Select

End Sub

Sub AUTO_CLOSE()
'
' シートCLOSE時はいつも実行する
'
    Sheets("表D").Select
    Columns("A:A").Select
    Selection.NumberFormatLocal = "yyyy/mm/dd"
    
    Range("B:B,F:I,K:S,W:W").Select
    Selection.NumberFormatLocal = "@"
    
    Range("C:E,U:U,V:V,X:X,AB:AD").Select
    Selection.NumberFormatLocal = "0_ "
    
    Range("J:J,T:T,Y:AA,AE:AG").Select
    Selection.NumberFormatLocal = "0.0_ "
    Cells(1, 1).Select
    
    Sheets("表H").Select
    Columns("A:A").Select
    Selection.NumberFormatLocal = "yyyy/mm/dd"
    
    Range("C:C,G:CU").Select
    Selection.NumberFormatLocal = "@"
    
    Range("B:B,D:F,L:L,Q:Q,S:S,Z:AH,AL:AP").Select
    Selection.NumberFormatLocal = "0_ "
    
    Range("AI:AK,AQ:AU,BB:BG,BN:BS,BW:BY,CC:CE,CI:CK,CV:DH").Select
    Selection.NumberFormatLocal = "#,##0_ "
    Cells(1, 1).Select
End Sub