Runtime error 1004 unable to set the weight property of the border class

[AJZLindsay93]

Hello All,

I am attempting to insert N number of rows based on N being inserted in cell "D7"

Rows are to be inserted at A10, with the formatting (borders) extending to D10

This is the code i have so far but I keep getting the error message "Runtime error 1004 unable to set the weight property of the border class"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim N As Long
If Not Intersect(Target, Me.Range("D7")) Is Nothing Then
With Me
N = .Range("D7").Value2
With .Range("A10:D10").Resize(N)
.Borders.Weight = X1Medium
.Borders.LineStyle = xlContinous
End With
End With
End If
End Sub


Any help would be greatly appreciated

 

[Joe4]

I think you have a type here:

[COLOR=#333333].Borders.Weight = X1Medium[/COLOR]

I believe it should be "xlMedium", not "x1Medium" (the second character should be the lower case letter "L", not the number "1").

 

[steve the fish]

Its xlMedium not X1Medium.

 

[Repush]

.Borders.Weight = X1Medium --> XlMedium ?

 

[Repush]

Photo finish !!