Moving Between worksheets

[T De Villiers]

I am in worksheet "Test", and the following code is within this worksheet,
a problem arises when I move to another worksheet "shell (S)"
I get message "Run-time error '1004' Application-defined or object-defined error' which I believe is with the asterixed line.


Sub printtariq()

a = Cells.Find("WorkOrder").Column
b = Cells.Find("CostC").Column
c = Cells.Find("PaperSize").Column
d = Cells.Find("PaperWeight").Column
e = Cells.Find("NoBW").Column
f = Cells.Find("printtype").Column

lastrow = Range("A65500").End(xlUp).Row
lastcol = Range("IV1").End(xlToLeft).Column
Cells(1, lastcol + 1) = "x"
Cells(1, lastcol + 1).Font.Bold = True
g = Cells.Find("x").Column

'For i = 2 To lastrow
'Cells(i, g) = Right(Cells(i, a), Len(Cells(i, a)) - 1)
'Next


***Sheets("shell (S)").Range("D23").Select












End Sub

[MattShoreson]

are you tiding up the sheet after processing by using this line?

[T De Villiers]

Sorry Matt, fidnt understand your question.
After doing my processing within the "Test" worksheet I am
then moving to the "shell(S) " worsheet.
Hope that helps

[MattShoreson]

That's ok.

You could try this alternative instead...

Sub printtariq()
Dim xlRng as range
set xlRng = activecell

Then when you finished all the processes...

activecell.select

[T De Villiers]

Hi trying the following based on your premise, not working, i am obviously doing something wrong

Sub printtariq()

Dim xlRng As Range
Set Sheets("MORI WIP (S)").Range("D23") = ActiveCell


a = Cells.Find("WorkOrder").Column
b = Cells.Find("CostC").Column
c = Cells.Find("PaperSize").Column
d = Cells.Find("PaperWeight").Column
e = Cells.Find("NoBW").Column
f = Cells.Find("printtype").Column

lastrow = Range("A65500").End(xlUp).Row
lastcol = Range("IV1").End(xlToLeft).Column
Cells(1, lastcol + 1) = "x"
Cells(1, lastcol + 1).Font.Bold = True
g = Cells.Find("x").Column

'For i = 2 To lastrow
'Cells(i, g) = Right(Cells(i, a), Len(Cells(i, a)) - 1)
'Next


ActiveCell.Select
'Cells(2, 9) = Replace(Cells(2, 1), 1, 1, "S")

[T De Villiers]

Actaully , inserted code in workbook macro and works fine now, thanks