Sub or function not defined

[dpaton05]

Whenever I open my spreadsheet I get a error, Sub or function not defined. This code is highlighted

Sub workbook_open()
    
    ActiveSheet.Unprotect Password:="services"
                ListObjects("Services").ListColumns("10%Increase").DataBodyRange.Value = "1"
    ActiveSheet.Protect Password:="services"

End Sub

The code just has to put a "1" in a column of a table as the formula in the total column relies on it. What do I have to define in this code to get it to work?

 

[Yongle]

Try

[COLOR="#006400"]ActiveSheet[/COLOR].ListObjects("Services") .....

 

[Michael M]

Try

Sub workbook_open()
With ActiveSheet
  .Unprotect Password:="services"
  . ListObjects("Services").ListColumns("10%Increase").DataBodyRange.Value = "1"
   .Protect Password:="services"
end with
End Sub

 

[dpaton05]

Try

Sub workbook_open()
With ActiveSheet
  .Unprotect Password:="services"
  . ListObjects("Services").ListColumns("10%Increase").DataBodyRange.Value = "1"
   .Protect Password:="services"
end with
End Sub

I get an error saying subscript out of range and it highlights the following code:

    .ListObjects("Services").ListColumns("10%Increase").DataBodyRange.Value = "1"

 

[Michael M]

Is the correct sheet being applied when the workbook opens ?
Is "Services" correct?
Is "10%Increase" correct ?
Syntax in all cases must be exact....case, spaces, etc !

 

[dpaton05]

Thanks Michael,

Got it to work with this code:

Sub workbook_open()
With Worksheets("Services")
    .Unprotect Password:="services"
    .ListObjects("Services").ListColumns("10%Increase").DataBodyRange.Value = "1"
    .Protect Password:="services"
End With
End Sub

 

[Michael M]

Glad it worked....wrong sheet, eh !!

 

[dpaton05]