VBA to go to cell K9 on every sheet

can an expert provide me with vba code that will find cell K9 then copy from K9 to end, then paste special values then move to the next sheet and do the same. [i.e. one sheet might be from K9-K17 another sheet K9-22 etc]

There can be anything between 2 and 100 sheets

I do not want this to happen on Sheet 1 which is named Start Screen

thank you
Who is Participating?

pls try

Sub Macro()
For Each sh In ActiveWorkbook.Worksheets
    If sh.Name <> "Start Screen" Then
        Set Rng = Range(Range("K9"), Range("K" & Cells.Rows.Count).End(xlUp))
        Rng.Value = Rng.Value
    End If
End Sub

Open in new window

JagwarmanAuthor Commented:
thanks Rgnozo, you never fail.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.