Juan,

This is what I meant

iLastRow = Cells(Rows.Count, "D").End(xlUp)
Range("D" & iLastRow & ":J" & iLastRow).Select
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"juan" wrote in message
...
Hello Bob,
I get error Method Range of object_Global failed. This is
portion of my macro:
Columns("D:J").Select
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
iLastRow = Cells(Rows.Count, "A").End(xlUp)
Range("A" & iLastRow & ":G" & iLastRow).Select

End Sub
Please advise.
thanks,
juan
-----Original Message-----
Hi Juan,

I have just tested it again, and I put three values in
A1, A2, A3 and ran
the code. Selected A4:G4 fine.

What happens with you?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Juan" wrote in message
...
Hello Bob,
not working. is there more to the code? Also Ken, When I
do your way it deletes my other Conditional formatting.
I
have a formalu that looks for the word Total and formats
that row. I'll continue playing with it, but would like
any suggestions.

Thanks both of you.

Juan
-----Original Message-----

iLastRow = Cells(Rows.Count,"A").End(xlUp)
Range("A" & iLastRow & ":G" & iLastRow).Select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the
Purbecks
(remove nothere from the email address if mailing
direct)

"Juan" wrote in message
...
Hello,
I want to format my columns wth borders, but if I
select
example Columns("A:G").Select
It will put borders all the way down. I want to put
borders just to the last row of data. So when user
wants
to print report it doesn't show Borders all the way
down.

Please advise any info. would appreciate it.

Thanks,

Juan


.



.