I thinkl you gotta place the statement Worksheets("Sheet1").Select before theRange("D4.....).select statement.