Hi

Could someone help me simplify the below code. Basically the module is used
to import some data and format it ready for output. I have the below checks
to do before any calculations will run, I am adding more reconciliations to
this list so would like to keep it as simple and as short as possible. Could
I use a select case statement for this?

If Worksheets("ZPOHeader").Range("A1").Value <> "" Then
Call ZPOHeader
Else
MsgBox ("Import the ZPOHeader report and then rerun procedure")
End
End If

If Worksheets("ZPOHeader").Range("A1").Value <> "" Then
Call ZPODetails
Else
MsgBox ("Import the ZPODetails report and then rerun procedure")
End
End If

If Worksheets("ABC_Month").Range("A1").Value = "" Then
MsgBox ("Import the ABC_Month report and then rerun procedure")
End
End If

If Worksheets("ABC_Accum").Range("A1").Value = "" Then
MsgBox ("Import the ABC_Accum report and then rerun procedure")
End
End If