CELLS RANGE 1

[ram567]

HI!
THE BELOW CODE WITH END WITH HAS SYNTAX ERROR. COULD YOU TELL ME WHAT IS THE ERROR?
THANKS IN ADVANCE

with obj.Worksheets("Sheet1").select
obj.Worksheets("Sheet1").Cells("1:4").Font.Size = 12
obj.Worksheets("Sheet1") .Range("1:4") = "x";"Y";"Z";"B"
End with

OR

obj.Worksheets("Sheet1").Cells(1,1).Font.Size = 12
obj.Worksheets("Sheet1").Cells(1,1)= "X"
obj.Worksheets("Sheet1").Cells(1,2)= "Y"
obj.Worksheets("Sheet1").Cells(1,3)= "Z"
obj.Worksheets("Sheet1").Cells(1,4)= "B"

 

[SkipVought]

with obj.Worksheets("Sheet1")[red][s].select[/s][/red]
   [red].Cells("1:4")[/red].Font.Size = 12
   [red].Range("1:4")[/red] = "x";"Y";"Z";"B"
End with

the syntax is

  .Cells(somerow, somecol)
  .Range("somecellref:anothercellref")

like

  .Cells(5, 2)
  .Range("B7:D9")

Now it looks as if you wanted to do something like this...

with obj.Worksheets("Sheet1")
  with .Cells(1,1)
    .Font.Size = 12
    .value = "X"
  end with
  .Cells(1,2).value = "Y"
  .Cells(1,3).value = "Z"
  .Cells(1,4).value = "B"
end with

Skip,

_{When a diminutive clarvoyant had disappeared from detention, headlines read...
Small Medium at Large}