录制了一个宏，怎么用在其他excel表中？

下面的这个宏只能用在录制宏的这个表中，怎么让其它的表也可以用呢？

————————————————————————————————————————
Sub 绝对问题小区()
'
' 绝对问题小区 宏
'
'
Columns("C:K").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Windows("RAN—20140504.xlsx").Activate
Range("A1:J1").Select
Selection.Copy
Windows("绝对问题小区_2014-06-20_16-28.csv").Activate
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,[RAN—20140504.xlsx]Sheet1!C1:C10,2,0)"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C3550")

录制的宏我的是保存在个人工作簿里面的， 换了另一个表执行后，执行到这一步就出错了，是不是工作表名字不能通用呢，

是的~你的代码是在标黄的工作簿执行，要执行当前工作簿，改成activesheet