error using a reference in a range
Hi, I have the following code: Code ------------------- iLastRow3 = Cells(Rows.Count, "B").End(xlUp).Row iLastColumn3 = Cells(iLastRow2, Columns.Count).End(xlToLeft).Column iLastCell = Cells(iLastRow3, iLastColumn3).Address Range("B7:iLastCell").Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End Wit ------------------- Problem is I get an error for the line "range("B7:iLastCell").select". What should I change in the code to fix this problem? Thanks i advance -- leonida ----------------------------------------------------------------------- leonidas's Profile: http://www.excelforum.com/member.php...fo&userid=3537 View this thread: http://www.excelforum.com/showthread.php?threadid=56654 |
error using a reference in a range
Hi Leonidas,
Problem is I get an error for the line "range("B7:iLastCell").select". Try: Range("B7", iLastCell).Select --- Regards, Norman "leonidas" wrote in message ... Hi, I have the following code: Code: -------------------- iLastRow3 = Cells(Rows.Count, "B").End(xlUp).Row iLastColumn3 = Cells(iLastRow2, Columns.Count).End(xlToLeft).Column iLastCell = Cells(iLastRow3, iLastColumn3).Address Range("B7:iLastCell").Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With -------------------- Problem is I get an error for the line "range("B7:iLastCell").select". What should I change in the code to fix this problem? Thanks in advance! -- leonidas ------------------------------------------------------------------------ leonidas's Profile: http://www.excelforum.com/member.php...o&userid=35375 View this thread: http://www.excelforum.com/showthread...hreadid=566548 |
All times are GMT +1. The time now is 09:35 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com