고급필터 예제, 해당 시트 존재 여부 알려주는 function

고급필터 예제

Sub advancedFilter(db시트명, filter시트명)
    filter시트columns = Sheets(filter시트명).Range("a1").CurrentRegion.Columns.Count
    filter_column_name_addr = Sheets(filter시트명).Range(Sheets(filter시트명).Cells(8, 1), Sheets(filter시트명).Cells(8, filter시트columns)).Address

    Sheets(db시트명).Range("A1").CurrentRegion.advancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets(filter시트명).Range("A1").CurrentRegion, CopyToRange:=Range( _
        filter시트명 & "!" & filter_column_name_addr), Unique:=False
End Sub

해당 시트 존재 여부 알려주는 function

Function checkIfSheetExists(SheetName) As Boolean
      checkIfSheetExists = False
      For Each WS In Worksheets
        If SheetName = WS.Name Then
          checkIfSheetExists = True
          Exit Function
        End If
      Next WS
End Function

참고

stackoverflow.com/questions/6688131/test-or-check-if-sheet-exists