No, Try this.

Sub dosheetbo()
'With Sheets("thesheet")
With Sheets(sheetbo)
.Range("a10") = "Blackouts"
.Range("a11") = .Range("b1")
.Columns.AutoFit
End With
End Sub


--
Don Guillett
SalesAid Software

"Kobayashi" wrote in message
...

Now I've got a little more experience I've been revisiting some of the
code I've previously written to try and remove as many of the 'Select'
commands as possible. However, can somebody advise why the bottom
select statement here does not work? Do I really need to select the
worksheet first before selecting the cell?
Oh, 'StreetBo' is a declared worksheet.

Thanks,

Adrian

With StreetBO
Range("AP1").Value = "Backouts"
Range("b1").Copy
Range("AP1").pastespecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Columns.AutoFit
Range("a2").Select
End With


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/