Snasui Excel Forum

Code: Select all

Sub Select_sheet()
'    Sheets("26-06-2019").Select
    Sheets(Format(Range("left(A3,10)").Value2, "dd-mm-yyyy")).Select
    Range("B4:E14").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("B4").Select
    ActiveSheet.Paste
    Range("H8").Select
End Sub

Code: Select all

Sub Select_sheet()
'
' aaaa Macro
'

'
'    Sheets("26-06-2019").Select
    Sheets(Format(Right(Range("A3").Value, 10), "dd-mm-yyyy")).Select
    Range("B4:E14").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("B4").Select
    ActiveSheet.Paste
    Range("H8").Select
    
End Sub