GetExcelDataWorkBook6

Sub GetExcelDataWorkBook6(ByRef ws1 As Worksheet, ByRef ws2 As Worksheet, ByRef ws3 As Worksheet, ByRef wb As Workbook, ByRef flg As Long)

Dim ws As Worksheet

flg = 0

For Each ws In wb.Worksheets

If Left(ws.Name, 3) = "amc" Then

Set ws1 = ws

flg = flg + 1

Exit For

End If

Next ws

For Each ws In wb.Worksheets

If Left(ws.Name, 4) = "list" Then

Set ws2 = ws

flg = flg + 1

Exit For

End If

Next ws

For Each ws In wb.Worksheets

If ws.Name = "newgraph" Then

Set ws3 = ws

flg = flg + 1

Exit For

End If

Next ws

End Sub