执行For …下一步复制粘贴操作在一个范围内查找macros返回运行时错误“1004”，如果只有一个条目范围内

我有一个macros，看起来在一个范围内，并为范围内的每个条目创build工作表的副本。 另外，在macros内是根据相邻单元中的信息确定应该复制哪个表的动作。 问题是，当范围中只有一个条目（从F13开始）时，会产生运行时错误“1004”。 当我有F13和F14中的数据时，没有错误，而且工作表创build时没有出错。 尝试了几个停止ifs，但没有运气。 下面显示了一个条目给出错误的代码部分，以及范围中有两个或更多条目的错误。 有没有一个简单的解决scheme，或者是一个不同的更复杂的模型需要。 在debugging“表格（Sheets.Count）.Name = mycell.Value”时突出显示。

With Sheets("ProjectDefinition") For Each myCell In .Range(.Range("f13"), .Range("f13").End(xlDown)) myCell.Value = "{" & myCell.Value & "}" Select Case UCase(myCell.Offset(0, -4)) Case "S" strWSname = "MasterReport2" Case "P" strWSname = "MasterReport" Case Else strWSname = "MasterReport" 'default End Select Sheets(strWSname).Copy After:=Sheets(Sheets.Count) 'Copies Tabs Sheets(Sheets.Count).Name = myCell.Value 'Renames the new worksheet 'Copies Part Number Into A1 On Report Tab' ActiveSheet.Range("A1").Value = myCell.Value Next myCell End With` 

一些示例数据从F13开始：F15

 45634567AB_extrsuion 45634567AB_form 45634567AB