Home / Questions / 14860
Accepted
Priscila Estala
Asked: 2020-06-24 08:35:42 +0800 CST 2020-06-24 08:35:42 +0800 CST

Error with block variable not set

  • 772

I have the error 91 in VBAwith the following code:

Dim i, c, b, a, 

With wsMissingSCM2.ListObjects("tblReportData2")
    .TableStyle = "TableStyleLight6"
    '
    ' LocationColumn
    '
    i = 1
    .ListColumns(i).DataBodyRange.HorizontalAlignment = xlCenter 'ERROR HERE
    .HeaderRowRange.Columns(i).Value = "Missing Item"
    .ListColumns(i).DataBodyRange.ColumnWidth = 14

Any suggestion?

vba

1 Answers

  1. Best Answer

    When you define the property .DataBodyRange.HorizontalAlignmentit does not know which object you want to make it to since you made another assignment before, i = 1for that reason you get the error With block variable not set (Error 91) :

    Change your code, first setting the properties of wsMissingSCM2.ListObjects("tblReportData2")and then the value of i:

      With wsMissingSCM2.ListObjects("tblReportData2")
    .TableStyle = "TableStyleLight6"
    .ListColumns(i).DataBodyRange.HorizontalAlignment = xlCenter 
    .HeaderRowRange.Columns(i).Value = "Missing Item"
    .ListColumns(i).DataBodyRange.ColumnWidth = 14

    i = 1
    • 0