Copy and paste from hidden sheet

[dwool40]

I am running the following code to copy and paste from a hidden sheet. I used macro recorder.

Sub test12()'
' test12 Macro
'


'
    Application.ScreenUpdating = False
    Sheets("Make Ready Board (2)").Visible = True
    Sheets("Make Ready Board (2)").Select
    Range("A2:R2").Select
    Selection.Copy
    Sheets("Make Ready Board").Select
    Range("A2:R2").Select
    ActiveSheet.Paste
    Sheets("Make Ready Board (2)").Select
    Range("G2").Select
    Application.CutCopyMode = False
    Sheets("Make Ready Board").Select
    Range("G2").Select
    Sheets("Make Ready Board (2)").Visible = False
    Application.ScreenUpdating = True

End Sub

I'm not an expert but I feel like this code can be cleaned up? Any help would be appreciated.

 

[LecrameMark]

Are your worksheet names accurate?

No, they are not.

 

[dwool40]

Would you guys mind doing another one or should I post another thread?

Sub sortready()'
' sortready Macro
'


'
    Range("A2:R71").Select
    ActiveWindow.SmallScroll Down:=-75
    ActiveWorkbook.Worksheets("Make Ready Board").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Make Ready Board").Sort.SortFields.Add2 Key:=Range _
        ("E2:E71"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Make Ready Board").Sort.SortFields.Add2 Key:=Range _
        ("B2:B71"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Make Ready Board").Sort
        .SetRange Range("A1:R71")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("E2").Select
End Sub

 

[shg]

Sub sortready()
  Dim wks As Worksheet

  Set wks = Worksheets("Make Ready Board")

  With wks
    .Range("A1:R71").Sort Key1:=.Range("E1"), Key2:=.Range("B1"), _
                          MatchCase:=False, Header:=xlYes
  End With
End Sub

 

[Trebor76]

Thanks for letting us know and you're welcome