Change
Set ws = Worksheets("Sheet1")
to
Set ws = ActiveSheet
Charlize