Debug Error at "C41:BF & lr"

%3CLINGO-SUB%20id%3D%22lingo-sub-1606380%22%20slang%3D%22en-US%22%3EDebug%20Error%20at%20%22C41%3ABF%20%26amp%3B%20lr%22%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1606380%22%20slang%3D%22en-US%22%3E%3CP%3EI%20get%20Debug%20at%26nbsp%3B%22C41%3ABF%20%26amp%3B%20lr%22.%20Can%20anyone%20see%20a%20syntax%20error%20in%20my%20code%3F%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3ESub%20Macro25()%0A'%0A'%20Macro25%20Macro%0A'%0A%0A'%0A%0A%0A%20%20%20%20%20%20%20%20Dim%20rng%20As%20Range%0A%20%20%20%20%20%20%20%20Dim%20lr%20As%20Integer%0A%20%20%20%20%20%20%20%20Set%20rng%20%3D%20Range(%22B41%3ABF3880%22)%0A%20%20%20%20%20%20%20%20lr%20%3D%20WorksheetFunction.CountA(rng)%20%2B%2040%0AApplication.EnableEvents%20%3D%20False%0A%0A%20%20%20%20%20%20%20%20With%20Application%0A%20%20%20%20%20%20%20%20%20%20%20%20.ScreenUpdating%20%3D%20True%0A%20%20%20%20%20%20%20%20%20%20%20%20.DisplayStatusBar%20%3D%20True%0A%20%20%20%20%20%20%20%20%20%20%20%20.EnableEvents%20%3D%20False%0A%20%20%20%20%20%20%20%20End%20With%0A%0A%0A%20%20%20%20Range(%22C3881%3ABF3881%22).Select%0A%20%20%20%20Selection.Copy%0A%0A%20%20%20%20ActiveWindow.ScrollRow%20%3D%2041%0A%20%20%20%20Range(%22B41%22).Select%0A%20%20%20%20Range(Selection%2C%20Selection.End(xlDown)).Select%0A%20%20%20%20Range(%22C%22%20%26amp%3B%20lr).Select%0A%20%20%20%20Selection.PasteSpecial%20Paste%3A%3DxlPasteFormulas%2C%20Operation%3A%3DxlNone%2C%20_%0A%20%20%20%20%20%20%20%20SkipBlanks%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%20%20%20%20Selection.AutoFill%20Destination%3A%3DRange(%22C41%3ABF%20%26amp%3B%20lr%22)%2C%20Type%3A%3DxlFillDefault%0A%20%20%20%20Range(%22C41%3ABF%20%26amp%3B%20lr%22).Select%0A%20%20%20%20Application.Calculation%20%3D%20xlAutomatic%0A%20%20%20%20Application.Calculation%20%3D%20xlManual%0A%20%20%20%20Range(%22B36%3AB40%22).Select%0A%20%20%20%20%0A%20%20%20%20MsgBox%20%22TestNewSymbol%20is%20completed.%22%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1606380%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EOffice%20365%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1607800%22%20slang%3D%22en-US%22%3ERe%3A%20Debug%20Error%20at%20%22C41%3ABF%20%26amp%3B%20lr%22%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1607800%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F235152%22%20target%3D%22_blank%22%3E%40Greg%20Bonaparte%3C%2FA%3E%26nbsp%3BThe%20correct%20syntax%20is%3A%26nbsp%3B%3C%2FP%3E%0A%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3ERange(%22C41%3ABF%22%20%26amp%3B%20lr)%3C%2FCODE%3E%3C%2FPRE%3E%0A%3CP%3ENote%20the%20location%20of%20the%20%22%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E
Frequent Contributor

I get Debug at "C41:BF & lr". Can anyone see a syntax error in my code?

Sub Macro25()
'
' Macro25 Macro
'

'


        Dim rng As Range
        Dim lr As Integer
        Set rng = Range("B41:BF3880")
        lr = WorksheetFunction.CountA(rng) + 40
Application.EnableEvents = False

        With Application
            .ScreenUpdating = True
            .DisplayStatusBar = True
            .EnableEvents = False
        End With


    Range("C3881:BF3881").Select
    Selection.Copy

    ActiveWindow.ScrollRow = 41
    Range("B41").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("C" & lr).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.AutoFill Destination:=Range("C41:BF & lr"), Type:=xlFillDefault
    Range("C41:BF & lr").Select
    Application.Calculation = xlAutomatic
    Application.Calculation = xlManual
    Range("B36:B40").Select
    
    MsgBox "TestNewSymbol is completed."
End Sub

 

 

1 Reply

@Greg Bonaparte The correct syntax is: 

Range("C41:BF" & lr)

Note the location of the "