'ここに飛んで処理する
Private Sub ToCanChg(tgtName As Object)
　tgtName.Locked = False
　tgtName.BackColor = vbWhite
End Sub

引数は As Object 、 Meは不要