macro prob, is this to tricky?

[Kade]

Hi all, I posted this prob recently but no replies, maybe I made it to tricky, anyhow I will try and explain less complicated.


This macro is to create a view that uses the sheet tab name as part of its name eg: if the macro is run in sheet 3 it will call the view "sheet3 concatanate with "A".

It does not need to to change if the sheet name changes. Once created with the tab name text all is well.


Sub Macro1()
'
' Macro1 Macro
' Macro recorded 13/09/2002 by Kade
'

'
Range("A1:G17").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$17"
Range("A1").Select
ActiveWorkbook.CustomViews.Add ViewName:="INSERT THE NAME OF SHEET3 CONCATANATE WITH "A" HERE", PrintSettings:=True, _
RowColSettings:=True
End Sub

 

[Jay Petrulis]

Hi,

Try the following...

<pre>Sub test()
Dim view_name As String

With ActiveSheet
view_name = .Name & "A"
.PageSetup.PrintArea = "$A$1:$G$17"
End With

ActiveWorkbook.CustomViews.Add ViewName:=view_name, _
PrintSettings:=True, RowColSettings:=True

End Sub</pre?

 

[Kade]

Thankyou Jay, this is saving me heaps of time, I can now go to the pub early!