Starting with command

M

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
 
F

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("A1:D1").font.bold=True
end if
end with
.....
 
Top