对宏的优化，修改，疑问

1）优化宏。 代码还能优化吗？
2）修改宏。 使代码运行于当前活动的工作薄（B）。同时打开2个薄。A - 有宏，B - 无宏。

Sub UnmatchRange()

Dim c As Range
Dim d As Range

For Each c In Sheet1.UsedRange
  If c <> Sheet2.Range(c.Address) Then c.Interior.ColorIndex = 42
Next

For Each d In Sheet2.UsedRange
  If d <> Sheet1.Range(d.Address) Then d.Interior.Color = vbRed
Next
End Sub

3）对宏的疑问。为什么下面这个宏能作用于当前活动的工作薄（B - 无宏）。上面那个却作用于A薄-有宏。

Sub WorkSheetRenameColumn()
Dim i As Integer
   For i = 2 To Sheets.Count
    Sheets(i).Name = Worksheets(1).Cells(i - 1, 1)  'Worksheets(I)
  Next i
End Sub

你想怎么优化？你觉得哪里还不够优化？

请教，当同时打开2个薄，A有宏，B无宏，为什么宏3）和录制宏可以运行于B。宏2）则运行于A。