VBAの中心にアライメントする：コードが機能しない

Question

Sub belajar_case() 
Dim nilai As Single 
Dim huruf As String 
nilai = Cells(1, 1).Value 

Range("A1:B1").Select 
With Selection 
.HorizontalAlignment = x1Center 
End With 

Select Case nilai 
Case 0 To 20 
huruf = "F" 
Cells(1, 2) = huruf 

Case 20 To 100 
huruf = "E-A" 
Cells(1, 2) = huruf 

End Select 
End Sub 

これは私のコードです。私はセルを中央に揃えたいが、うまくいかない。メッセージがポップアップし、 "ランタイムエラー '1004'：RangeクラスのHorizo​​ntalAlignmentプロパティを設定することができません。私がデバッグしたとき、それはライン： を参照しました。水平方向のアライメント= x1Center

なぜそうですか？

Answer 1

あなたはどこかからコードをコピーしたようです。またはあなたはタイプミスをしました。

それは

x1Centerではありません：2番目の文字は数字の1（1）

それは

xlCenterあるべきである。まず2番目の文字はl（アルファベット）である必要があり