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.?

 

[RAJESH1960]

This will do both replacements

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

I will try this then

 

[RAJESH1960]

I will try this then

It is replacing the columns only as before but not the first row.
With Union(Sheets("SalesData").Range("1:1"), Sheets("SalesData").Range("D:D"))
.Replace "&", "&amp", xlPart, , False, , False, False
End With
With Union(Sheets("SalesData").Range("1:1"), Sheets("SalesData").Range("D:D"))
.Replace "&amp", "&", xlPart, , False, , False, False
End With

 

[Fluff]

Are you sure you have some & characters in row 1?
Because it works fine for me.

 

[RAJESH1960]

Are you sure you have some & characters in row 1?
Because it works fine for me.

Give me some time. I will come back to you.

 

[RAJESH1960]

I got it. Actually it was & with a semi colon. ?
Thanks Fluff. You are one of the Gods of excel.
Thanks for your patience and help.?

 

[Fluff]

Glad it's working & thanks for the feedback.