Horizontal Alignment

[pradeep kalele]

I have the following code for excel vba. The last line (I made it bold for your convenience) intend to align the contents of the cell in the center. I am receiving error as "Unable to set the HorizontalAlingment property of the range class." Kindly help
Sub SetGrades()

Dim Score As Integer

Score = ActiveCell.Value

If Score >= 90 And Score <= 100 Then

ActiveCell(1, 2).Value = "A"
ActiveCell(1, 2).Interior.ColorIndex = 4
ActiveCell(1, 2).HorizontalAlignment = xlCentre

End If

End Sub

 

[NARAYANK991]

Hi ,

Try this :

Sub SetGrades()
    Dim Score As Integer

    With ActiveCell
        Score = .Value

        If Score >= 90 And Score <= 100 Then
            .Offset(, 1).Value = "A"
            .Offset(, 1).Interior.ColorIndex = 4
            .Offset(, 1).HorizontalAlignment = 3
        End If
    End With
End Sub

Narayan

 

[pradeep kalele]

Hi ,

Try this :

Sub SetGrades()
    Dim Score As Integer

    With ActiveCell
        Score = .Value

        If Score >= 90 And Score <= 100 Then
            .Offset(, 1).Value = "A"
            .Offset(, 1).Interior.ColorIndex = 4
            .Offset(, 1).HorizontalAlignment = 3
        End If
    End With
End Sub

Narayan

Oh! Thank you very much, Narayan Sir! It works. May I further request you to kindly tell me why the earlier error was coming as I used that from a tutorial. It this a recent change in VBA command?

 

[NARAYANK991]

Hi ,

The keyword is actually xlCenter , and not xlCentre.

However , I used 3 because it works , after I tried a few other integer values.

Narayan