View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Norman Jones Norman Jones is offline
external usenet poster
 
Posts: 5,302
Default 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