I'm just thinking off the top of my head, but it may get you started.
In a Standard Module:
In the ThisWorkBook module:
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
vOldValue = Target.Value
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
Target.Value = left(vOldValue,len(vOldValue)-2)
End Sub
or
Private Sub Workbook_SheetSelectChange(ByVal sh As Object, ByVal Target As Range)
Dim v
If Target is Range("Cell2") then
v = Range("Cell1").value
v = Left(v,Len(v)-2)
Target.Value = v
End Fi
End Sub
Bookmarks