sheet copy vba copy/paste cells as value

[pile-it Mark]

hello,

this code copies a master sheet and turns several cells from formula to value.

i have since needed to add a few more cells to "copy/paste as value" how do i add AL11 to paste as value?

Sub SheetCopy347()
'
' SheetCopy347 Macro
'

'
    Sheets("Master 347").Select
    Sheets("Master 347").Copy Before:=Sheets(4)
    Range("E12").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("R5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[My Aswer Is This]

Try this and add more lines of code like you want.

Sub SheetCopy347()
' SheetCopy347 Macro
    
    Sheets("Master 347").Copy Before:=Sheets(4)
    Range("E12").Value = Range("E12").Value
    Range("R5").Value = Range("R5").Value
    Range("AL11").Value = Range("AL11").Value
    
    End Sub

 

[pile-it Mark]

thanks! i will try it in the morning.

Mark

 

[My Aswer Is This]

OK. Let me know if this works for you.

thanks! i will try it in the morning.

Mark