Running code on hidden sheets

[Guest]

Is it possible to run code on hidden sheets, without unhiding and hiding back
the sheet in the process?

I have the following code

Sheets("Tracker").Select
Range("B3").Select
Selection.Font.ColorIndex = 4
Range("C3").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("C3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

I want the sheet 'Tracker' to be hidden always (even password protected), so
the code Sheets("Tracker").Select will break down because there will be no
sheet to select.

Is it possible I can run the above code with the sheet 'Tracker' hidden?

Thanks in advance,

Pinda.

 

[Don Guillett]

Without selecting, try this on your hidden sheet. Of course the subject
cells would have to be unprotected for a protected sheet. If you really
don't want others to UNhide your sheet, hide/unhide with code using

sheets("tracker").visible=xlveryhidden 'true

with Sheets("Tracker")
.. Range("B3").Font.ColorIndex = 4
.. Range("C3")=date & time
end with

 

[Bob Phillips]

The hidden is easy, don't select it

With Sheets("Tracker")
.Range("B3").Font.ColorIndex = 4
.Range("C3").VAlue = Now
Range("C3").Numberformat = "d mmm yyyy hh:mm:ss"
End with

Ptrotectiuon will need to be removed and re-instated afterwards.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

Thanks Don/Bob, thats works like a charm. I have implemented the changes in
all my similar code, but am having trouble with the code below, which is a
bit more complex:

Sheets("JobSummary").Select
Rows("4:4").Select
Selection.Copy
Rows("6:6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Rows("6:6").Select
Application.CutCopyMode = False
Selection.Cut
Workbooks.Open Filename:="c:\Manpower\All Adverts\" & _
Sheets("JobSheet").Range("M6") & "\" &
Sheets("JobSheet").Range("M5") _
& "\" & "tracker_" & Sheets("JobSheet").Range("M7") & ".xls"
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Rows("5:5").Select
Selection.Copy
Rows("4:4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C5").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close

Again, I want the sheets Tracker and JobSummary to be hidden and the above
code to work.

Thanks again guys

Pinda