What code do I use to place dashes in all cells of row 2 of ToTable? I tried
Sheets(ToSheet).Range(ToTable)(2).Value = "'- - - - -"
but this seems to put the dashes in only row 1 col 2 cell.

I appreciate your help, -John