Starting with command

[Marcus]

Dear all

Is it possible to write an if statement which is
a "starting with command".

For example if cell (r,1) begins "SAM" then
range(A1:d1").select
with selction
Font.bold
end slection

I would want it to pick up a range of data for example

SAM 1
SAM 2
But Not
FAM 1

MAny thanks

 

[Frank Kabel]

Hi
try something like

.....
dim r
dim rng as range
r=1
with activesheet
if left(.cells(r,1).value,3)="SAM" then
..range("A11").font.bold=True
end if
end with
.....