Cell Alignment based on another cell value

I was wondering if it was possible to align a cell based on the value within another cell.

For Example:

IF Cell A1=>1 AND <= 2 then align Cell B1 left

IF Cell A1=>3 AND <= 4 then align Cell B1 centre

IF Cell A1=>5 AND <= 6 then align Cell B1 Right

I would also want this macro to activate on any change in Cell A1.

Thanks for any help you can provide.

Kind Regards
E

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("A1").Address Then
    If Range("A1") >= 1 And Range("B1") <= 2 Then Range("B1").HorizontalAlignment = xlLeft
    If Range("A1") >= 3 And Range("B1") <= 4 Then Range("B1").HorizontalAlignment = xlCenter
    If Range("A1") >= 5 And Range("B1") <= 6 Then Range("B1").HorizontalAlignment = xlRight
End If

End Sub

Try this attachment Sheet1 and see if it does what you want.

stnkynts & JOHN H. DAVIS, thank you so much. Problem solved!!

Cheers
E

You're welcome. Glad to help out and thanks for the feedback.