Macro on Current Row

  • Thread starter Thread starter TKS_Mark
  • Start date Start date
T

TKS_Mark

I want to macro below to work on the current row instead of row 3. Please
help.

Selection.Copy
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("F3:G3").Select
Selection.Replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
 
with activesheet
with .cells(activecell.row,"F").resize(1,2)
.copy
.pastespecial paste:=xlpastevalues

.replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
end with
end with

I think...
 
Back
Top