with sheet1
..cells(4,3)="xyx"
..cells(5,6)="month"
end with

--
Don Guillett
SalesAid Software

"Kieranz" wrote in message
oups.com...
Hello
I have the following code; I would like to do the same thing without
sheet and range select.

Sheet1.select
Range("B3").select
Activecell(1,1) = "xyz"
Activecell(1,3) = "month"
Activecell(3,2)= "Sales"
...
etc
Many thks, Rgds Kz