About Us

Don Guillett

glad to help

--
Don Guillett
SalesAid Software

"Janis" wrote in message
...
thanks very much,

"Don Guillett" wrote:

..Rows(1).Insert
with.Cells(1, 4)
..Value = .cells(1,17)
..Font.Bold = True
..Font.Size = 14
..RowHeight = 18
..Font.color = vbWhite
end with
--
Don Guillett
SalesAid Software

"Janis" wrote in message
...
I have a macro with an if/then that puts header rows before all the
sorted
departments except it doesn't do the last row. After the if/then block
I
want to put in a header row on the first row with the department name
in
cell
block (1,17)
I have this but the insert doesn't work exactly right. I don't want it
to
wipe out row one just put a gray header row above it. I almost got it.
Thanks,

.Rows(1).Insert.before
.Cells(1, 4).Value = .cells(1,17)
.Cells(1, 4).Font.Bold = True
.Cells(1, 4).Font.Size = 14
.Cells(1, 4).RowHeight = 18
.cells(1,4).Font.color = vbWhite

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Cannot insert worksheet in exel - not available in insert menu	pedro39	Excel Worksheet Functions	1	July 24th 08 12:09 PM
insert row / insert column command buttons	fairgreen	Excel Worksheet Functions	1	October 29th 07 02:41 PM
Macro to insert copy and insert formulas only to next blank row	bob	Excel Programming	0	June 30th 06 12:02 PM
Can I auto insert a worksheet when I insert a value in a cell.	iainc	Excel Worksheet Functions	0	April 27th 06 08:37 AM
Insert cell/format/text/fontsize and auto insert into header?	Unfurltheflag	Excel Programming	2	November 3rd 04 05:39 PM