Reword VBA so the worksheet is hidden

[mssbass]

My VBA is jumping to my worksheet in order to remove dups - how do I prevent this - here's my vba

Sub Deletedups()

Dim wsSOR As Worksheet: Set wsSOR = ActiveWorkbook.Sheets("Staffing_Open_Report")
Dim wsQue As Worksheet: Set wsQue = ActiveWorkbook.Sheets("Queues")

Application.ScreenUpdating = False

wsSOR.Activate

'Removes duplicates
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveSheet.Range("$A$1:$S$2000").RemoveDuplicates Columns:=5, Header:= _
xlYes
Range("B1").Select

End Sub

 

[RayFrye]

It is always est to qualify the Worksheet. wsSOR.Range("A1").Select

This might not fix your problem but at first glance this is what I would do.

'Removes duplicates
wsSOR.Range("A1").Select
wsSOR.Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
wsSOR.Range("$A$1:$S$2000").RemoveDuplicates Columns:=5, Header:= _
xlYes
wsSOR.Range("B1").Select

 

[mssbass]

I get run-time error '1004' - Select method of Range class failed

 

[Fluff]

How about

Sub Deletedups()
   Dim wsSOR As Worksheet
   
   Set wsSOR = ActiveWorkbook.Sheets("Staffing_Open_Report")
   wsSOR.UsedRange.RemoveDuplicates Columns:=5, Header:=xlYes
End Sub

 

[mssbass]

Thank you - that worked

 

[Fluff]

Glad we could help & thanks for the feedback.