Combine two bits of code

[redspanna]

Hi all

Think I'm having a memory block..

I have this bit of code that will carry out a certain task on each of my worksheets

Sub updateSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
    With ws
        .Unprotect Password:=684556
        .Range("J203:J256").Validation.Delete
      
    End With
Next ws
End Sub

I actually want t the above to carry out the following in every worksheet but I can't seem to get them to work together..

Range("AB13").Select
    Selection.Cut
    Range("AB6").Select
    ActiveSheet.Paste
    Range("AB16").Select
    Selection.ClearContents
    Range("AC8").Select
    Selection.ClearContents
    Range("AD11").Select
    ActiveCell.FormulaR1C1 = "blank cell"
    Range("Z1").Select

thanks in advance

 

[Norie]

Perhaps.

Sub updateSheets()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
        With ws
            .Unprotect Password:=684556
            .Range("J203:J256").Validation.Delete
            .Range("AB13").Cut .Range("AB6")

            .Range("AB16").ClearContents
            .Range("AC8").ClearContents
            .Range("AD11").Value = "blank cell"
            Application.Goto .Range("Z1")
        End With
    Next ws
End Sub

 

[njimack]

Sub updateSheets()
Dim ws As Worksheet


Application.ScreenUpdating = False


For Each ws In ActiveWorkbook.Sheets
    With ws
        .Range("AB13").Cut .Range("AB6")
        .Range("AB16").ClearContents
        .Range("AC8").ClearContents
        .Range("AD11") = "blank cell"
    End With
Next ws


Application.ScreenUpdating = True


End Sub

 

[redspanna]

Thanks Norie