WithステートメントでWorksheetを参照中に、Name .Cells(1, 1) As .Cells(2, 1)のような記述を実行しようとすると、構文エラーが発生します。原因は不明ですが、Nameの直後に「.」を打つことはできないようです。Name (.Cells(1, 1))とやれば解決します。