Список проголосовавших за комментарий "можно вот так:<br/> <br/> <span style="color:#0000ff;">Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)</span><br/> <br/> <span style="color:#0000ff;">Dim ws As Worksheet</span><br/> <span style="color:#0000ff;">Set ws = ThisWorkbook.Sheets(«Sheet1»)</span><br/> <br/> <span style="color:#0000ff;">'MsgBox ws.Cells(1, 1).Value</span><br/> <br/> <span style="color:#0000ff;">If ws.Cells(1, 1).Value > ws.Cells(1, 2).Value Then</span><br/> <span style="color:#0000ff;"> ws.Cells(1, 2).Value = ws.Cells(1, 1).Value</span><br/> <span style="color:#0000ff;">End If</span><br/> <br/> <span style="color:#0000ff;">End Sub</span>"