시트이름의 특정 문자만을 바꾸는 방법이 있을까요

현재 사용중인 엑셀파일에 다른 파일에서 시트를 불러오는 일이 매주 있습니다

시트를 불러올 때 중복한 시트 이름이라면 괄호에 숫자가 나옵니다만

다운로드 한 파일이 많아지면 괄호 안의 숫자도 커지고 매번 수정이 귀찮습니다..

그래서 몇 가지 시도해봤는데 시트 이름의 괄호만 딱 검색해서 수정하는 방법이 있을까요?

지금은 그냥

For Each SheetName In Worksheets
If InStr(SheetName.Name, "(2)") Then

SheetName.Name = Replace(SheetName.Name, "(2)", "A")
MsgBox (SheetName.Name)
End If

Next

를 반복해서 20정도까지 두고 사용하는데

저만 쓰는게 아니라 여러사람이 다운로드한 파일을 읽어들이고 있어서...

xxx.csv(24) 이런게 생기면 아마 매크로가 안 돌아갈거같아요..