$What method do I use to place into variable ToSheetCell the "$A$1"
column/row designation of the cell identified by
ToSheetCell = Sheets(ToSheet).Range(ToTable)(2, 1).????

I appreciate your help, -John