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



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)


"Pinda" wrote in message
...
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.

Why not explain what you are actually trying to do

--
Regards,
Tom Ogilvy

"Pinda" wrote in message
...
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



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)


"Pinda" wrote in message
...
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.

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" wrote:

Why not explain what you are actually trying to do

--
Regards,
Tom Ogilvy

"Pinda" wrote in message
...
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



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)


"Pinda" wrote in message
...
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.

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.

--
Regards,
Tom Ogilvy


"Pinda" wrote in message
...
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" wrote:

Why not explain what you are actually trying to do

--
Regards,
Tom Ogilvy

"Pinda" wrote in message
...
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



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)


"Pinda" wrote in message
...
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.

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)


"Pinda" wrote in message
...
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" wrote:

Why not explain what you are actually trying to do

--
Regards,
Tom Ogilvy

"Pinda" wrote in message
...
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



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)


"Pinda" wrote in message
...
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.