VBA Pagesetup help

[hajiali]

ActiveSheet.PageSetup.PrintArea = "$B$13:$V$56,$B$59" & Cells(98, Cells(100, 1).Value)

I have the above code that needs to be modified. The second page column value will change from time to time. So i have the Value in "A100" to give me the column number in this case its "BE" so value "A100=57
the row will always be 98. so I need the above code to read:

"$B$13:$V$56,$B$59:BE57"

. I could just simply put that in the code however it will not always be till column "BE"

any help is greatly appreciated.

 

[EXCEL MAX]

Hello Hajiali,
try in this way...

Sub PageSetUp()
   
    Dim vColumn As String

    vColumn = Cells(98, Cells(100, 1)).Address
    vColumn = Split(vColumn, "$")(1)
    ActiveSheet.PageSetUp.PrintArea = _
        "$B$13:$V$56," & "$B$59:" & vColumn & Cells(100, 1).Value

End Sub

 

[hajiali]

Thank you EXCEL MAX. I had to remove the

vColumn = Split(vColumn, "$")(1)

because the vcolumn was the column and row value that I need did not need to spilt it. Thank you so much.

 

[EXCEL MAX]

I'm glad that we find a solution.