请帮助我修改一下如下的VBA代码，用来拆分单元格的

Question

哪位能帮我修改一下如下VBA代码，主要是主程序调用子程序，用来拆分指定Range的合并单元格，合并本身没问题了，主要是参数的传递。
程序主要是通过主程序调用子程序，并传递Sheet和Range的参数
问题定位在这一行：Worksheets(strSheet).Range(strRange).Activat
显示的是越界。

Sub CHAIFEN(canSheet, canRange)
Dim c As Range
Dim strSheet As String
Dim strRange As String
strSheet = canSheet
strRange = canRange
Worksheets(strSheet).Range(strRange).Activate
With Selection
For Each c In Selection
If c.MergeCells Then
c.Select
c.UnMerge
Selection.Value = c.Value
End If
Next c
End With
End Sub

Public Sub Excu()
Dim aa As String
aa = "sheet3"
Dim bb As String
bb = "A1:A80"
CHAIFEN aa, bb
End Sub

Answer 1

Sub CHAIFEN(canSheet As String, canRange As Range)
Dim c As Range
Worksheets(canSheet).Activate
For Each c In canRange
If c.MergeCells = True Then
c.Select
c.UnMerge
Selection.Value = c.Value
End If
Next c
End Sub

Public Sub Excu()
Dim aa As String
aa = "sheet3"
Dim bb As Range
Set bb = Sheets(aa).Range("A1:A80")
CHAIFEN aa, bb
End Sub

Answer 2

你有sheet3工作表不