Option Explicit
Sub Test()
'In "with statement" we include the name of workbook & the name of worksheet we want to execute the code.
With ThisWorkbook.Worksheets("Sheet1")
'Using cell referencing
.Cells(1, 1).Interior.Color = vbRed
'Using range referencing
.Range("A1").Interior.Color = vbRed
End With
End Sub