新建Sheet单元格状态控制整行颜色的VBA

Sub NewSheet_Click()
    Dim filter As String
    Dim fileToOpen As Variant
    Dim rowCount As Integer
   
    filter = "All Files(*.*),*.*,Word Documents(*.do*),*.do*," & _
            "Text Files(*.txt),*.txt,Excel Files(*.xl*), * .xl * "
    fileToOpen = Application.GetOpenFilename(filter, 4, "select File")
   
    If fileToOpen <> False Then
    
        '選択ファイル、シートを追加する
        Workbooks.Open fileToOpen
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Select
        
        '全部の様式を設定
        Columns("A").NumberFormatLocal = "yyyy/m/d"
        Columns("A").HorizontalAlignment = xlCenter
        Columns("C").HorizontalAlignment = xlCenter
        Columns("C").Select
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween,