入力規則 ひらがな VBA うまくできない

質問

シート全体を入力規則でひらがな入力するvbaコードを実行したいのですが

Sub Macro2()

With Cells.Validation
.Delete
.IMEMode = xlIMEModeHiragana
End With

End Sub

これだと実行時エラー１００４が発生するのですが、何かが間違ってると思うのですが、
どこが変でしょうか？

ご教授よろしくお願いします。

回答No.1

misatoanna · ベストアンサー

.IMEMode = xlIMEModeHiragana
の前に
.Add Type:=xlValidateInputOnly
の行が足りないかと・・・・

自動記録した結果と照合してみてください。

お礼

ご回答ありがとうございました。