Удалить лишнее слева и справа от конкретных символов

[energoadres]

Дорого времени суток.
Искал в темах, но не нашел.

Помогите с макросом.
Надо удалить в выделенной ячейке (может находится в любом месте листа)
всё содержимое слева от конкретного символа (в примере #$#) и все справа от конкретного символа (в примере $#$)

[nilem]

energoadres, привет
например:

Sub ertert()
Dim x, i&

With ActiveSheet
    If .FilterMode Then .ShowAllData
    x = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
End With

For i = 1 To UBound(x)
    If InStr(x(i, 1), "#$#") Then x(i, 1) = Split(x(i, 1), "#$#")(1)
    If InStr(x(i, 1), "$#$") Then x(i, 1) = Split(x(i, 1), "$#$")(0)
Next i
Range("B1").Resize(UBound(x)).Value = x
End Sub

[energoadres]

nilem,
Спасибо,
Если возможно, помогите еще с модернизацией кода (может быть я изначально не совсем корректно описал):
1. после применения кода, новое значение (обработанное) остается в исходной ячейке
2. действие кода применимо для ячейки в ЛЮБОМ месте листа (например ячейки А15, В5, С4, или В2:В7)

[nilem]

так нужно?

Sub ertert()
Dim r As Range
For Each r In Selection.Cells
    If InStr(r.Value, "#$#") Then r.Value = Split(r.Value, "#$#")(1)
    If InStr(r.Value, "$#$") Then r.Value = Split(r.Value, "$#$")(0)
Next r
End Sub

[energoadres]

nilem,
Да, спасибо большое,
Очень сильно помогли.
Я правильно понимаю, я в коде символы "#$#" и "$#$" могу менять на другие, в зависимости от ситуации ?