How to Rewrite these Code?
 

Dear All

Kindly look at the code below and advice me whether there's anothe
variation which I could use... Currently, the code works fine bu
because I am selecting and activiating the sheet... i am not able t
specify in my macro which sheet to go back to... For eg, I am at Sheet
and activating the macro from there... but after the macro ends, i wil
be brought to the Sheet2 which I don't want... I want the active shee
to be still Sheet1 after the macro has finished... So is there anothe
way of writing the same function but without actually activating th
sheet? I have tried this code but it didn't work...
Sheets("Sheet2").Range("k133:m144").Select
Does anyone have any clue...?

Function Own() As String
Sheets("Sheet2").Select
Range("K133:M144").Select
End Function

Cheer

--
hc
-----------------------------------------------------------------------
hce's Profile: http://www.excelforum.com/member.php...nfo&userid=351
View this thread: http://www.excelforum.com/showthread.php?threadid=26445

How to Rewrite these Code?
 

Hi HCE,

It is rarely necessary to make selections.

If you wanted to enter a specific value in the K133:M144", you could achieve
this, without making a selection, thus:

Sub Tester03()
Sheets("Sheet2").Range("K133:M144").Value = "ABC"
End Sub

In your code, you show no action except for the unwanted selection. If you
have a specfic requirement, pos details and someone will provide you will
try to help you further.

---
Regards,
Norman



"hce" wrote in message
...

Dear All

Kindly look at the code below and advice me whether there's another
variation which I could use... Currently, the code works fine but
because I am selecting and activiating the sheet... i am not able to
specify in my macro which sheet to go back to... For eg, I am at Sheet1
and activating the macro from there... but after the macro ends, i will
be brought to the Sheet2 which I don't want... I want the active sheet
to be still Sheet1 after the macro has finished... So is there another
way of writing the same function but without actually activating the
sheet? I have tried this code but it didn't work... -
Sheets("Sheet2").Range("k133:m144").Select
Does anyone have any clue...?

Function Own() As String
Sheets("Sheet2").Select
Range("K133:M144").Select
End Function

Cheers


--
hce
------------------------------------------------------------------------
hce's Profile:
http://www.excelforum.com/member.php...fo&userid=3518
View this thread: http://www.excelforum.com/showthread...hreadid=264458