Hi and thanks for your help.

This is a one off requirement to speed up my day

Thus far, I have the following code. I'm trying to find a column in the
current active worksheet "US_HK", then copy that column to the next
available column in the "HK" worksheet. To simplify the process I place my
curser in the first cell of the column in "HK" where I want the data pasted
to.

Rows("1:1").Select
Selection.Find(What:="Text1", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=
_
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
Columns.Select
Selection.Copy
Sheets("HK").Select
ActiveSheet.Paste

Any help will be apprciated.

Cheers
Mark

Try this:-

Rows("1:1").Select
Selection.Find(What:="Text1", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False).Activate
ActiveCell.EntireColumn.Select
Selection.Copy
Sheets("HK").Select
ActiveSheet.Paste

Note: You have already activated the cell in the find. No need to select it
again.

Regards,

OssieMac

"Mark" wrote:

> Hi and thanks for your help.
>
> This is a one off requirement to speed up my day
>
> Thus far, I have the following code. I'm trying to find a column in the
> current active worksheet "US_HK", then copy that column to the next
> available column in the "HK" worksheet. To simplify the process I place my
> curser in the first cell of the column in "HK" where I want the data pasted
> to.
>
> Rows("1:1").Select
> Selection.Find(What:="Text1", After:=ActiveCell, LookIn:= _
> xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=
> _
> xlNext, MatchCase:=False, SearchFormat:=False).Activate
> ActiveCell.Select
> Columns.Select
> Selection.Copy
> Sheets("HK").Select
> ActiveSheet.Paste
>
> Any help will be apprciated.
>
> Cheers
> Mark
>
>
>

many thanks for your help

"OssieMac" <(E-Mail Removed)> wrote in message
news:2C9F545F-658E-4983-B2D3-(E-Mail Removed)...
> Try this:-
>
> Rows("1:1").Select
> Selection.Find(What:="Text1", After:=ActiveCell, LookIn:= _
> xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
> SearchDirection:=xlNext, MatchCase:=False, _
> SearchFormat:=False).Activate
> ActiveCell.EntireColumn.Select
> Selection.Copy
> Sheets("HK").Select
> ActiveSheet.Paste
>
> Note: You have already activated the cell in the find. No need to select
> it
> again.
>
> Regards,
>
> OssieMac
>
> "Mark" wrote:
>
>> Hi and thanks for your help.
>>
>> This is a one off requirement to speed up my day
>>
>> Thus far, I have the following code. I'm trying to find a column in the
>> current active worksheet "US_HK", then copy that column to the next
>> available column in the "HK" worksheet. To simplify the process I place
>> my
>> curser in the first cell of the column in "HK" where I want the data
>> pasted
>> to.
>>
>> Rows("1:1").Select
>> Selection.Find(What:="Text1", After:=ActiveCell, LookIn:= _
>> xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
>> SearchDirection:=
>> _
>> xlNext, MatchCase:=False, SearchFormat:=False).Activate
>> ActiveCell.Select
>> Columns.Select
>> Selection.Copy
>> Sheets("HK").Select
>> ActiveSheet.Paste
>>
>> Any help will be apprciated.
>>
>> Cheers
>> Mark
>>
>>
>>