Adding 4 rows after each total criteria in the column A with formatting and added text using macro.
Hi Gwen
Glad it is up and running for you...
to move the text to column f just offset the activecell by 5 columns
like below.
ActiveCell.Offset(0,5).Value = "Avails"
ActiveCell.EntireRow.Interior.ColorIndex = 5
ActiveCell.Offset(1, 5).Value = "Left"
ActiveCell.Offset(1, 0).EntireRow.Interior.ColorIndex = 6
you can find address details on my profile
take it easy
Steve
|