VBA Basic Question: How to rename sheets within code so sheet renaming doesn't cause error

Hi,
I understand this question has been addressed in general and for specific questions; however, with the advice, I'm still unable to change all of the code for the following scenario/macro so that when a user renames a sheet, it doesn't affect the code (err out). I was able to follow the previous advice in order change the first sheet referenced to the hardcoded name (sheet3 in the below which was once something else), but i'm unsure how to change sheet1! in the example below to its hardcoded name which is sheet6. Could you please help?

Sub AdvancedFilter()
'
' AdvancedFilter Macro
'

'
Range("E1").Select
Sheet3.Rows("4:1048576").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("Sheet1!Criteria"), CopyToRange:=Range( _
"A21:LG21"), Unique:=False
Range("A18").Select

End Sub

Try

Please Login or Register  to view this content.