Offset ActiveSheet.Name into ActiveWorkbook.Names

[Fubi]

Hello members!


When i look inside the name manager the formula is wrapped into apostrof's.
Because of that my vba code below doesn't work. Without apostrof's the vba code won't even run.

Can someone show me a solution for this problem?

Sub Productieprint()

    ActiveWorkbook.Names("DynPrint").RefersToR1C1 = "=OFFSET('" & ActiveSheet.Name & "'!R2C6,0,0,COUNTA('" & ActiveSheet.Name & "'!C6),4)"
    Application.CutCopyMode = False

    Sheets(ActiveSheet.Name).PageSetup.Orientation = xlPortrait

    ActiveWorkbook.Worksheets(ActiveSheet.Name).Names("Print_Area").RefersToR1C1 = "=DynPrint"

End Sub

Kind regards

 

[Fubi]

Problem solved.

 

[Fluff]

Good to hear you got the solution.

If you would like to post the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.

 

[Jeffrey Mahoney]

Try...
ActiveSheet.PageSetup.PrintArea = "DynPrint"

 

[Fubi]

I know what you're trying to say. Actually what Jeffrey suggested did they trick. Thanks everyone.

 

[Fluff]

In that case feel free to mark post#4 as the solution.