Any idea why the following does not clear the contents of row 1 in ToTable? Sheets(ToSheet).Range(ToTable)(1).ClearContents I appreciate your help, -John