Hi

Based on my research, I can reproduce your scenario at my side.
So far I have reported the problem to the dev team.
Also if you just want to create a new workbook with special content, why
not use the code similar with below?

If I have any misunderstanding, can you describe more detailed about what
you are going to do?

Sub test()
Workbooks.Add (xlWorksheet)

Cells(3, 1) = 1
For i = 2 To 11
Cells(1, i) = i - 1
Cells(2, i) = "=" & Cells(1, i).Address(ColumnAbsolute:=False)
Cells(3, i) = "=" & Cells(3, i - 1).Address(RowAbsolute:=False,
ColumnAbsolute:=False)
Next

Range("B2:K2").Select
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteFormulas,
Operation:=xlPasteSpecialOperationAdd
ActiveWorkbook.SaveAs "c:\temp\test.xls"
End Sub

Thanks!

Best regards,

Peter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.