名前の定義で「時刻」という文字が含まれる名前を非表示にし、ユーザーが操作できない様にします。 Sub Sample98() Dim N As Name For Each N In Names If N.Name Like "*時刻*" Then N.Visible = False End If Next N End Sub