Thanks , I try this before but did not use the & .
-----Original Message-----
Because you have not specified any row in your command
Rows().Select
all rows are selected
Try
For lngROW = 3 To Rng.Rows.Count
cellchar = Cells(lngROW, 1).Value
If Mid(cellchar, 1, 10) = "==========" Then
ActiveWindow.SelectedSheets.HPageBreaks.Add
Befo=Cells(lngROW + 1, 1)
Application.StatusBar = "Row: " + Format(lngROW)
ElseIf Mid(cellchar, 1, 6) = "Agency" Then
Rows(lngROW - 1 & ":" & lngROW + 3).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
End If
Next lngROW
---
Message posted from http://www.ExcelForum.com/
.