Error in expression

I keep getting an error with the following expression in my macro:

[VBA]Sub Name()
'
' Name Broker
'
Columns("F:F").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F1").Select
ActiveCell.FormulaR1C1 = "Broker"
Range("F2").Select

End Sub[/VBA]

Do you know whats wrong?

I'll tell you when you add VBA tags to your code.

You used a reserved keyword, Name. Use another name for your Sub.

what are VBA tags

See the FAQ here.