Помощь чайнику в VBA

[Fobo5]

Здравствуйте.
Подскажите пожалуйста код для следующий операций в VBA:
1) В ячейке я записываю определенное число, скажем 1 и она автоматически перекрашивается в определенный цвет.
2) Если я буду переносить значение на соседнюю ячейку, то предыдущая будет принимать значение замененной. Проще говоря они будут меняться местами.
3) Не позволять менять ячейки местами, там, где стоит условная "стена" в виде ячейки определенного цвета.
В общем я хочу сделать лабиринт

[Fobo5]

Хотя бы 1 или 2 пункт, очень нужно
Спасибо.

[Aleksandr H.]

1. макрорекордер говорит:

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Range("A:A").FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=1"
    Range("A:A").FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Range("A:A").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
    Range("A:A").FormatConditions(1).StopIfTrue = False
End Sub

[Fobo5]

Сообщение от Aleksandr H.

1. макрорекордер говорит:

Спасибо.
А можно с комментариями?

[Aleksandr H.]

условное форматирование на столбец А. Если значение ячейки = 1 то сделать фон желтым. Хотя, вы же код запустили и результат увидели?

[Fobo5]

Сообщение от Aleksandr H.

условное форматирование на столбец А. Если значение ячейки = 1 то сделать фон желтым. Хотя, вы же код запустили и результат увидели?

В том то и дело, что нет.

Run-time error "9":
Subscript out of range

[Fobo5]

Заработало.
Еще раз спасибо.