Function MyInterior(Optional Rng As Range) As Integer

Application.Volatile

If Rng Is Nothing Then
'This line must be in single line
MyInterior = Application.ThisCell.Interior.ColorIndex
Else
'This line must be in single line
MyInterior = Rng.Interior.ColorIndex
End If

End Function

Pls confirm