Macro to select Row as well as any particular column

[RAJESH1960]

Hello,
Sheets("Sheet1").Activate
Columns("D:D").Select
Selection.Replace What:="&", Replacement:="&", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A2").Select

This formula selects and replaces & in the column D
I want it to select the first full row also along with column D
what is the code to be added and where.?

 

[Fluff]

Do you mean you want the replace to work on row 1 & col D?

 

[RAJESH1960]

Do you mean you want the replace to work on row 1 & col D?

There are & in the headings also which I want it to be replaced by &. Earlier there were names which had & in the words in that particular column. Now the headings also have some names containing &.

 

[RAJESH1960]

There are & in the headings also which I want it to be replaced by &. Earlier there were names which had & in the words in that particular column. Now the headings also have some names containing &.

 

[Fluff]

Ok, how about

Sub Rajesh()
   With Union(Sheets("sheet1").Range("1:1"), Sheets("Sheet1").Range("D:D"))
      .Replace "&amp", "&", xlPart, , False, , False, False
   End With
End Sub

 

[RAJESH1960]

With Union(Sheets("sheet1").Range("1:1"), Sheets("Sheet1").Range("D:D")) .Replace "&amp", "&", xlPart, , False, , False, False End With

Error: subscript out of range

 

[RAJESH1960]

Hello,
Sheets("Sheet1").Activate
Columns("D:D").Select
Selection.Replace What:="&", Replacement:="&", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A2").Select

This formula selects and replaces & in the column D
I want it to select the first full row also along with column D
what is the code to be added and where.?

the column part has been working fine. But since in this project the headings in the first row contain "&" I am not able to import data.

 

[Fluff]

Do you actually have a sheet called sheet1 in the active workbook?

 

[RAJESH1960]

Do you actually have a sheet called sheet1 in the active workbook?

Sorry I changed the sheet name now. but this time I am getting a compile error Syntax error

 

[Fluff]

Do you have the code laid out as per post#5, or in one line like your quote in in post#6?