Running code on hidden sheets (revisited)

[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


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
--
Don Guillett
SalesAid Software
(e-mail address removed)


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)

 

[Tom Ogilvy]

Why not explain what you are actually trying to do

 

[Guest]

Hi,

The code below runs when the sheet ("JobSummary") is visible, how do I
ammend the code so it runs when JobSummary is hidden?

Thanks,

Pinda

 

[Tom Ogilvy]

I doubt anyone is going to try to decipher your verbose recorder code to
figure out what you are trying to do. If you continue to be unwilling to
state what you are doing, then I am not sure you will get answer.

Its up to you.

 

[Bob Phillips]

You didn't take any notice of the advice that Don and I gave you about not
selecting on that sheet.

--

HTH

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