인풋박스로 유저가 시트 이름을 입력하면 해당 시트에만 특정 코드를 적용하거나 제거하기.

안녕하세요. 유튜브와 커뮤니티에서 평소 많은 도움을 받고 있음에 감사말씀드립니다.

제목에 요약한것과 같이 질문 내용이 있습니다.

원하는것은 아래의 기능을 On, off 하는 추가기능으로 만드는 것입니다.

On 추가기능

1. 유저에게 적용할 시트 이름을 입력하게 한다.
2. 입력된 워크시트에 아래의 코드를 적용한다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Columns(Target.Column).Interior.ColorIndex = 19
Rows(Target.Row).Interior.ColorIndex = 24
End Sub

OFF 추가기능

1. 유저에게 적용할 시트 이름을 입력하게 한다.
2. 선택된 워크시트에 아래의 코드가 있으면 삭제한다.Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Cells.Interior.ColorIndex = xlNone
   Columns(Target.Column).Interior.ColorIndex = 19
   Rows(Target.Row).Interior.ColorIndex = 24
   End Sub

위 기능을 만들고 싶어서 여러모로 고민을 해보고 있는데 현재까지는 겨우 유저가 키인한 시트를 선택하도록 하는데까지입니다.

Sub SelectSheet()
Dim ws As Worksheet
Dim sheetName As String
Dim sheetList As String

'Ask the user if they want to proceed
If MsgBox("이 매크로는 유저가 원하는 워크시트에서 선택된 셀의 행과 열의 배경색을 변경하여 강조하는 기능을 수행합니다." & vbCrLf & "계속하시겠습니까?", vbYesNo) = vbNo Then
MsgBox "실행하지 않고 종료합니다."
Exit Sub
End If

For Each ws In ThisWorkbook.Sheets
sheetList = sheetList & ws.Name & ","
Next ws

sheetList = Left(sheetList, Len(sheetList) - 1)

sheetName = ""
Do
sheetName = Application.InputBox("셀강조를 실행하려는 워크시트의 이름을 정확히 입력하세요." & vbCrLf & "띄어쓰기는 정확히 일치해야 하지만 대소문자는 일치하지 않아도 됩니다." & vbCrLf & sheetList, "Select Worksheet", Type:=2)
If sheetName = "False" Then
MsgBox "취소를 선택하였으므로, 종료합니다."
Exit Sub
End If

'Check if the sheet name exists
On Error Resume Next
ThisWorkbook.Sheets(sheetName).Select
If Err.Number <> 0 Then
MsgBox "입력하신 워크시트는 존재하지 않습니다." & vbCrLf & "띄어쓰기를 포함한 워크시트 이름을 확인하시고 다시시도하세요."
sheetName = ""
End If
On Error GoTo 0
Loop While sheetName = ""

MsgBox "다음의 워크시트에 대해 선택된 셀의 행과 열의 배경색을 변경합니다. " & sheetName
End Sub

초심자이다보니 여기까지도 많은 시간을 들여서 힘들게 왔는데 여기부터는 더 진행을 할 수가 없을 것 같습니다.

도움 주실 능력자분들을 기다리겠습니다.

감사합니다.