Please Need Help in Excel Fourmula? [closed]

Option Explicit

Function Validate() As Boolean

   Dim frm As Worksheet

   Set frm = ThisWorkbook.Sheets("Data Entry")

   Validate = True

   With frm

      .Range("F7").Interior.Color = x1None
      .Range("F9").Interior.Color = x1None
      .Range("F11").Interior.Color = x1None
      .Range("F13").Interior.Color = x1None
      .Range("F15").Interior.Color = x1None
      .Range("F17").Interior.Color = x1None



  End With