Hi, sorry if this a simple one, but I'm not thinking very clearly today. I
have a range of cells to model a theatre seating plan; using the
worksheet_selectionChange, the seats are selected and the seats/cells are
coloured.

I have another range similar to the seating plan, one column to the right of
the seating plan, when the seats are selected, I want the cells on the right
side to be filled with a booking value(name obtained through a user form text
box). How do I programmatically work out the horizontal offset with the
current target cell address?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 3
BookingRange=Target.cells.address
fmBooking.Show
BookingRef=Booking.text

---Here I'm stuck---
New range.offset.value = BookingRef

End Sub

Many thanks for your help.