VBA错误编译：预期：表达式

Question

我正在做一些功课，但我无法弄清楚为什么我的代码无法正常工作。分配是请求名称，然后在B10中以红色文本回复。

这是我的代码：

任何帮助都会很棒 - 谢谢！

Answer 1

此错误来自行With RAnge("b10").Font.ColocarIndex = 3，With应该仅用于对象（不是表达式）

sName = Application.InputBox(Prompt:="Please enter your name.", Type:=2)    
With Sheets("MyNewSheet").Range("B10")
    .Font.ColorIndex = 3
    .Value = sName 
End With

Answer 2

考虑：

Sub qwerty()
    Sheets("MyNewSheet").Activate
    With Range("B10")
        .Font.ColorIndex = 3
        strName = Application.InputBox(Prompt:="Please enter your name.", Type:=2)
        .Value = strName
    End With
End Sub