我的是OFFICE2007

with Sheet
    .Cells(3, 4).Activate    ' or .Range("D3").Activate
    ActiveWindow.FreezePanes = True
end with

这样写为何不行？要怎改？

猜测问题点也许是因为最后更新要冻结时～Foucs Cells可能已经到了1000,10000～
如果只移动Foucs Cells到3,4就冻结～因为一回来3,4变成Cells中的1,1～
因此会造成3,4的左边和上面的资料都被冻住而看不见～然后就发生错误～
目前先改成...

with Sheet
    .Cells(1, 1).Activate
    .Cells(3, 4).Activate    ' or .Range("D3").Activate
    ActiveWindow.FreezePanes = True
end with

再试试看～