Border formatting row of cells
Hi Howard,
Am Fri, 24 Jan 2014 22:38:52 -0800 (PST) schrieb L. Howard:
I copied to a standard module and ran it, selected a row from Z to AS on prompt and hit enter. Get a Type Mismatch on this line.
have a try for Range Z:AS with:
Sub Test()
Dim myR As Range
Dim myRng As Range
Dim rngC As Range
Set myR = Application.InputBox("Select a cell into the row to reform", _
"Borders reform", Type:=8)
Set myRng = Range(Cells(myR.Row, "Z"), Cells(myR.Row, "AS"))
For Each rngC In myRng
With rngC
With .Borders(xlEdgeLeft)
.LineStyle = IIf(WorksheetFunction.IsOdd(rngC.Column), _
xlDot, xlContinuous)
.ColorIndex = xlAutomatic
.Weight = xlThin
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlThin
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlThin
End With
With .Borders(xlEdgeRight)
.LineStyle = IIf(Not WorksheetFunction.IsOdd(rngC.Column), _
xlDot, xlContinuous)
.ColorIndex = xlAutomatic
.Weight = xlThin
End With
End With
Next
End Sub
Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
|