每次VBA循环都会崩溃excel

Question

我试图编写一个VBA代码，该代码遵循从单元格E4开始的每个单元格上的指令。 U表示上，D表示下，R表示对。它将遵循指示并在单元格“ Cottage”处结束。但是，每次我尝试运行它时，代码都会使我的excel崩溃。通过追逐-我的意思是excel只是停止响应。附上摘要以进一步清晰-图片1

Sub findhome()
Range("E4").Select
    Do While ActiveCell.Value <> "Cottage"
        If ActiveCell.Value = "R" Then
            ActiveCell.Offset(0, 1).Select
        ElseIf ActiveCell.Value = "D" Then
            ActiveCell.Offset(1, 0).Select
        ElseIf ActiveCell.Value = "U" Then
            ActiveCell.Offset(-1, 0).Select
        End f
    Loop
End Sub