With Some.Long.Object.Name .Cells(1,1) = "blah" .Cells(1,2) = "blah" .Cells(1,3) = "blah" .Cells(1,4) = "blah" End With