excel - 非常にシンプルなエクセル VBA マクロです。セルに値を指定

Question

基本的に、マクロを介して条件付き書式を記述しようとしています。Excel スプレッドシートの行 E の値を評価したいと考えています。すべての値が 1 の場合、行全体を別の書式に変更したいと考えています。これが私がこれまでに持っているものです。

行数をカウントする COUNTA があります (H5 に表示)。その列の値が 1 の行数をカウントする COUNTIF(E:E,1) があります (G5 に表示されます)。これまでの私のコードは次のとおりです。

Sub Macro1()
'*****************
'Declare variables
'*****************
Dim xlWB, xlApp, xlSheet As Object
Dim xlTest As Worksheet
Dim RowNumber, TotalNumber, Count, i, j As Integer
Dim aCell, aRow As Excel.Range
Dim oInteger As Object
Dim oString As Object
'*****************
'Set variables
'*****************
i = 0
Range("G5").Select
Count = ActiveCell.Value
Range("H5").Select
TotalNumber = ActiveCell.Value
'*****************
'For loop to format
'*****************
For i = 2 To TotalNumber
    If ("E" & i = 1) Then
        MsgBox ("Doing something")
    End If
Next i
End Sub

("E" & i) が 'E1'、'E2' などのように表示されていることを確認するために MsgBox を入れました。これ; ただし、1 の値と一致することはありません。セル番号ではなく、そのセルの値を比較する必要があります。選択したセルの値を指定する方法がわかりません。

どんな助けでも感謝します。ありがとう。