Making worksheets

[Fabrizio]

Hi. I have a makro that displays a userform that can generate a report. The
report is to be created when the user presses a button on the user form. The
report is to be shown in a new worksheet that the program creates. I want the
new worksheet to have certain settings (e.g. no gridlines). I am trying to
write code for this but I do not know how to refer to the worksheet without
using the very unconvenient code when setting one worksheet active and then
applying the changes. Code:

Private Sub worksheetMaker()
Dim WB As Workbook
Dim SH As Worksheet
Dim iCtr As Long
Const sName As String = "Rapport "
Set WB = ActiveWorkbook
iCtr = WB.Worksheets.Count
Set SH = Worksheets.Add(after:=Worksheets(iCtr))
SH.Name = sName & iCtr
'Sheets(SH.Name).Select
'Cells.Select
Sheets(SH.Name).DisplayGridlines = False

The last line is wrong. How do you wirte this so that it works? Please help
me!

 

[Duncan]

activate the correct window and then

ActiveWindow.DisplayGridlines = False

worked for me, I dont think it likes it applied to the sheet property
and not the window.

Duncan

 

[Duncan]

or if you know the name or index of the window you have created then
you can do

Windows (Index).DisplayGridlines = False

which should also work and then you dont need to activate.

Duncan

 

[Don Guillett]

try this

Sub AddSheetandName()
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Rapport"
ActiveWindow.DisplayGridlines = False
End Sub