Images/website/og-image/support-and-learning/product-features.png' alt='Crack Width Calculation Euro Code 2 Examples' title='Crack Width Calculation Euro Code 2 Examples' />Referencing Pivot Table Ranges in VBAHi Jon,Ive tried to incorporate a Select Case block into my code as you suggested, however, I now get a Run Time Error 1. Source. Data RangeA4. Current. Region. AddressTrue, True, xl. R1. C1, TrueThe error message reads as follows The Pivot Table field name is not valid. To create a Pivot. Table report, you must use data that is organised as a list with labelled columns. O fyou are changing the name of a Pivot. Table field, you must type a new name for the field. My original code worked ok prior to the selct case block so Im assuming it may have something to do with thatRevista IBRACON de Estruturas e Materiais Online version ISSN 19834195 Rev. IBRACON Estrut. Mater. So Paulo Oct. 2012 httpdx. S1983. Please see below my new code with the Select Case block Sub RefreshAllPivotsOn Error Go. To errhandler. Application. Screen. Updating False. Dim field. 1 As String. Specifications Standard 4air system includes 2 side air hoses 4 air chucks Either the standard clipon chuck Or optional clipless chuck. NewUser Registration Member Login Recent Topics Forum Rules Forum FAQ User Profile. Curtain walls wall claddings windows and slope roof glazing Part 1 Design considerations Gill J, JGA Publications Ltd ISBN None, pp 23, 1992. Horse racing Ice hockey Karate Olympics Racing Motorsport Asian Games or Asiad are a multisport event taking place every four years among the athletes from all. BSE The Bridge and Structural Engineer, is a quarterly journal published by INGIABSE. It is one of the oldest and the foremost structural engineering Journal of. Dim field. 2 As String. Dim field. 3 As String. Dim field. 4 As String. Crack Width Calculation Euro Code 2 Examples' title='Crack Width Calculation Euro Code 2 Examples' />Dim field. As String. Dim field. As String. Dim field. As String. Dim field. As String. Dim ws As Worksheet. Adventure Of Tintin Pc Game. Dim pt As Pivot. Table. Dim pf As Pivot. Field. Dim rng As Range. Dim lastcol As Long. Dim Last. Row As LongActive. Sheet. Pivot. TablesPvt. Variance. Rpt. 2. Pivot. FieldsLine. Current. Page StrFor Each ws In Active. Workbook. Worksheetsws. Activate. For Each pt In ws. Pivot. Tables Select Case pt. Name Case Pivot. Table. Pivot. Table. 28, Pivot. Table. 29 Set rng RangeA4. Current. Region Last. Row Last1, rnglastcol Last2, rng field. Cells1, lastcol 7. Textfield. 2 rng. Cells1, lastcol 6. Textfield. 3 rng. Cells1, lastcol 5. Textfield. 4 rng. Cells1, lastcol 4. Textfield. 5 rng. Cells1, lastcol 3. Textfield. 6 rng. Cells1, lastcol 2. Textfield. 7 rng. Cells1, lastcol 1. Textfield. 8 rng. Cells1, lastcol. Text pt. Source. Data RangeA4. Current. Region. AddressTrue, True, xl. R1. C1, True pt. Data. Pivot. Field. Orientation xl. Hidden With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With Case Pivot. Table. 30 Set rng RangeF4. Current. Region Last. Row Last1, rnglastcol Last2, rng field. Cells1, lastcol 7. Text not sure if the. Cells1, lastcol 6. Text not sure if the. Cells1, lastcol 5. Textfield. 4 rng. Cells1, lastcol 4. Textfield. 5 rng. Cells1, lastcol 3. Elegant Angel Gia Dimarco there. Textfield. 6 rng. Cells1, lastcol 2. Textfield. 7 rng. Cells1, lastcol 1. Textfield. 8 rng. Cells1, lastcol. Text pt. Source. Data RangeF4. Current. Region. AddressTrue, True, xl. R1. C1, True pt. Data. Pivot. Field. Orientation xl. Hidden With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With Case Pivot. Table. 33 Set rng RangeF5. Current. Region Last. Row Last1, rnglastcol Last2, rng field. Cells1, lastcol 7. Text not sure if the. Cells1, lastcol 6. Text not sure if the. Cells1, lastcol 5. Textfield. 4 rng. Cells1, lastcol 4. Textfield. 5 rng. Cells1, lastcol 3. Textfield. 6 rng. Cells1, lastcol 2. Textfield. 7 rng. Cells1, lastcol 1. Textfield. 8 rng. Cells1, lastcol. Text pt. Source. Data RangeF5. Current. Region. AddressTrue, True, xl. R1. C1, True pt. Data. Pivot. Field. Orientation xl. Hidden With pt. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With With pt. Pivot. Fieldsfield. Orientation xl. Data. Field. Caption Sum of field. Function xl. Sum. End With Case Else Msg. Box Unrecognised Pivot table. Cr. Lf vb. Cr. Lf Please check the workbook., vb. OKOnly, Error with Refreshing Pivots End Selectpt. Refresh. Table. Errorhandling Next pt. Next ws. Active. Workbook. Show. Pivot. Table. Field. List False. Application. Screen. Updating True. Sheet. Activate. Exit Suberrhandler Msg. Box One or more of the Pivot tables have experienced an error. Cr. Lf vb. Cr. Lf Please look through the workbook to determine where the error has occurred., vb. OKOnly, Error with Refreshing PivotsResume Errorhandling. End Sub. Do you have any ideas why the Select Else block would provide an error Thanks in advance.