[求助]：帮忙看看这个程序

174157601

有个程序出点问题，因为不怎么懂（只会用，^_^），帮忙看看是什么问题，谢谢！！
Sub 定义列宽()
   With Range("A:A")
        .ColumnWidth = 6#
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlCenter
        .NumberFormatLocal = "@"
   End With
   With Range("B:P")
        .ColumnWidth = 4.3
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlCenter
        .NumberFormatLocal = "@"
   End With
End Sub
Sub 定义列宽()[/COLOR]
Range[/COLOR]
运行时出现“编译错误”，子过程或函数未定义

那个End  Sub后面的是前面的语句是运行时出现的颜色