VBからエクセルのワークシートにアクセスして、セルサイズを
調整してみました。
　無茶苦茶遅いのですが、早くする何かよい方法はないでしょうか？
どなたかおしえてください。

'---------------------------------------------------------------------------------
'ｓｈ１のセルサイズをｓｈ２と同じにする
'---------------------------------------------------------------------------------
Sub CellSizeCYO(sh1 As excel.Worksheet, sh2 As excel.Worksheet, objR As Range)
Dim objT As Range
Dim st As String

' 領域をセットする。
For Each objT In objR
st = Mid(objT.Address(False, False), 1, 1)
st = st & ":" & st
sh1.Columns(st).ColumnWidth =sh2.Columns(st).ColumnWidth
Next
End Sub