Макрос для условного выравнивания текста в ячейке

[Infinite]

Доброго времени! Помогите, пжлста, с макросом.
Необходим код, который будет автоматически сдвигать текст внутри ячейки (право, лево) при условии знака значения в этой же ячейке. В ячейке, где будет определяться край, к которому будет сдвигаться текст, будет стоять не абсолютное значение, а функция.

[Администратор]

Написал вам письмо на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.