| 
    
     |  | >少し解説しておきますと、 >Sheetsコレクションで特定のワークシートを名前で指定する場合は
 >Sheets("Sheet1")のようにダブルクォーテーションで括らなければ
 >この時点で型の不一致が発生します。
 
 度重なる誤りをお許し下さい。
 すいません。ここに掲載するために、一部、実際のソースを変更しておりました。
 →シート名を「Sheet1」に変更したのですが、
 そのときに、ダブルクォーテーションを付け忘れておりました。
 
 
 ここで、実際のソースを掲載します。
 
 Sheets(strSheetName).Range("celComment_1").Value _
 = "[長さ]: 1. " & Format(Trim$(Sheets(GET_DATA_SHEET).Range("AC" & lngGetDataCnt + 6).Value), "##,###") & " (m), " & _
 "2. " & Format(Trim$(Sheets(GET_DATA_SHEET).Range("AD" & lngGetDataCnt + 6).Value), "##,###") & " (m)"
 
 ここで、
 ・strSheetName:シート名
 ・celComment_1:セル名
 ・GET_DATA_SHEET:シート名
 ・lngGetDataCnt:Long型変数
 です。
 
 これを掲載するのはややこしいなぁ〜っと思て、簡単に掲載したんですが、
 そこで、ボロボロと誤記や私の勘違いが発生したみたいです。
 大変ご迷惑をおかけ致しました。
 
 以後、気をつけます。
 
 |  |