Change alignment

Hello,

I need vba in excel.
When I put value into cell (if this value is 5),
then this cell must be right alignment.
With sub change works, but
alight all numbers to right, not only number 5.
Activecell not reconize, that is intered number 5.
Can somevone help me?

.
Paste this in the Sheet Module :

Code:

---

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
Dim lr As Long

    lr = Cells(Rows.Count, 1).End(xlUp).Row

    For Each cell In Range("A1:A" & lr)

        Select Case cell.Value

        Case Is = 5
            cell.HorizontalAlignment = xlRight

        Case Else
            cell.HorizontalAlignment = xlCenter

        End Select

    Next cell

End Sub

---

Thanks,

but it takes too long tme beacuse o my range range isE9:AI28. Each row has about 6 to 8 numbers 5
It is possible o aiignmet only cell where I put number 5?

Regads

try:

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cll As Range, rngeToProcess As Range

Set rngeToProcess = Intersect(Target, Range("E9:AI28"))
If Not rngeToProcess Is Nothing Then
  For Each cll In rngeToProcess
    Select Case cll.Value
      Case Is = 5
        cll.HorizontalAlignment = xlRight
      Case Else
        cll.HorizontalAlignment = xlCenter
    End Select
  Next cll
End If
End Sub

---

It will only process cells that you change within E9:AI28.

Quote:

---

Originally Posted by p45cal

try:

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cll As Range, rngeToProcess As Range

Set rngeToProcess = Intersect(Target, Range("E9:AI28"))
If Not rngeToProcess Is Nothing Then
  For Each cll In rngeToProcess
    Select Case cll.Value
      Case Is = 5
        cll.HorizontalAlignment = xlRight
      Case Else
        cll.HorizontalAlignment = xlCenter
    End Select
  Next cll
End If
End Sub

---

It will only process cells that you change within E9:AI28.

---

It works!

Thanks!