Selcet cases after first case not working

Hello

I have a problem where when I fill out a specific cell with "x" it's suppose to give a value in another worksheet. It's working for the first Select case, but cases that comes after isn't working.

I Run a If Isempty code to start with to avoid a Mismatch error.

My code Is

 Dim Value As Integer
  Dim Celle As String

Celle = target.Address
   
    If IsEmpty(Range("H3,H10,H16,H24,H32,P3,P10,P21,P30,P38")) = True Then
        'do nothing
        
    Else
           
        If target.Value = "x" Then
    
    
            Select Case Celle
            
                Case "$H$3"
                    Worksheets("Sheet2").Range("B2").Value = "1"
            
                Case "$H$10"
                    Worksheets("Sheet2").Range("B2").Value = "2"
                    
                Case "$H$16"
                    Worksheets("Sheet2").Range("B2").Value = "3"
                                 
                Case "$H$24"
                    Worksheets("Sheet2").Range("B2").Value = "4"
                    
                Case "$H$32"
                    Worksheets("Sheet2").Range("B2").Value = "5"
            
                Case "$P$3"
                    Worksheets("Sheet2").Range("B2").Value = "6"
                    
                Case "$P$10"
                    Worksheets("Sheet2").Range("B2").Value = "7"
                    
                Case "$P$21"
                    Worksheets("Sheet2").Range("B2").Value = "8"
                    
                Case "$P$30"
                    Worksheets("Sheet2").Range("B2").Value = "9"
                    
                Case "$P$38"
                    Worksheets("Sheet2").Range("B2").Value = "10"
                    
        End Select

    
End If
End If

End Sub