Dynamic Creation of borders

  • Thread starter Thread starter Tyrusst
  • Start date Start date
T

Tyrusst

I'm trying to dynamicly create a square ranged border. I take a value
off of the sheet "Param" then try to create a red border on "Magic".
However I keep getting a "Run-tim error '1004': Applicatoin-defined or
object defined error". Is there any other way for me to do this?

Thanks

Adam


Function Build_Grid()

Dim Start As Integer
Start = Worksheets("Param").Range("ODD_INPUT").Value
Worksheets("Magic").Cells.Clear

Worksheets("Magic").Range(Cells(1, 1), Cells(Start,
Start)).BorderAround ColorIndex:=3, Weight:=xlThick


MsgBox "Your Square has been created"




End Function
 
It should work if the Magic sheet is the activesheet, but I assume it isn't.
The unqualifed Cells(1,1) refers to the activesheet. So you need to use a
with statement

With Worksheets("Magic")
.Range(.Cells(1, 1), .Cells(Start, _
Start)).BorderAround ColorIndex:=3, Weight:=xlThick
End With

Note that the Range and Cells are all preceded by a full stop/period
 
Back
Top