Is there a shorter way than what I am using?


If Range("D116") = 0 Then 'Corrects some formulas in old quotes that are
'not compatable with Master5
Range("K121").Select
Selection.Copy
Range("D116").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("D117") = 0 Then
Range("K122").Select
Selection.Copy
Range("D117").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("D118") = 0 Then
Range("K123").Select
Selection.Copy
Range("D118").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("C130") = 0 Then
Range("M123").Select
Selection.Copy
Range("C130").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("C131") = 0 Then
Range("M124").Select
Selection.Copy
Range("C131").Select
Selection.PasteSpecial Paste:=xlFormulas
End If
If Range("C132") = 0 Then
Range("M125").Select
Selection.Copy
Range("C132").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

try

for i=116 to 118
if cells(i,"d")=0 then cells(i+5,"k").copy cells(i,"d")
next i
for i=130 to 132
if cells(i,"c")=0 then cells(i-7,"m").copy cells(i,"c")
next i

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Oldjay" wrote in message
...
Is there a shorter way than what I am using?


If Range("D116") = 0 Then 'Corrects some formulas in old quotes that
are
'not compatable with Master5
Range("K121").Select
Selection.Copy
Range("D116").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("D117") = 0 Then
Range("K122").Select
Selection.Copy
Range("D117").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("D118") = 0 Then
Range("K123").Select
Selection.Copy
Range("D118").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("C130") = 0 Then
Range("M123").Select
Selection.Copy
Range("C130").Select
Selection.PasteSpecial Paste:=xlFormulas
End If

If Range("C131") = 0 Then
Range("M124").Select
Selection.Copy
Range("C131").Select
Selection.PasteSpecial Paste:=xlFormulas
End If
If Range("C132") = 0 Then
Range("M125").Select
Selection.Copy
Range("C132").Select
Selection.PasteSpecial Paste:=xlFormulas
End If