Public Sub IfThenSub()

Dim nResult, nKnopka As Integer

nResult = MsgBox("Нажать кнопку, vbYesNo, "Окно1")

If nResult = 6 Then
ThisWorkbook.Worksheets(2).Range("A1").Value = "Вы нажали кнопку ДА" 
Else
ThisWorkbook.Worksheets(2).Range("A1").Value = "Вы нажали кнопку НЕТ "

ThisWorkbook.Worksheets(2).Range("A1").Columns.AutoFit
End If

nKnopka = MsgBox("Выбрать кнопку", vbAbortRetryIgnore, "Окно 2")

Select Case nKnopka = 3
ThisWorkbook.Worksheets(2).Range("A2").Value = "Вы нажали кнопку ПРЕРВАТЬ"
/// компилятор останавливается на этой строке  и подсвечивает .Value

Case nKnopka = 4
ThisWorkbook.Worksheets(2).Range("A2").Value = "Вы нажали кнопку ПОВТОР"
Case Else
ThisWorkbook.Worksheets(2).Range("A2").Value = "Вы нажали кнопку ПРОПУСТИТЬ"
 End Select
 
ThisWorkbook.Worksheets(2).Range("A2").Columns.AutoFit
End Sub