Option Explicit
Private Enum WhichSheet
NorthAmerica
Europe
Elsewhere
End Enum
Private Enum ListToUse
Consumers
Vendors
Shippers
End Enum
Private Enum InternationalShippers
DHL
RoyalAir
ICantThinkOfAnother
End Enum
Public Sub FillInShippingInfo()
Dim useList As ListToUse
Dim listResult As Variant
listResult = GetTheUseList(NorthAmerica, Consumers)
ActiveSheet.Range("A1").Resize(ColumnSize:=UBound(listResult) + 1) = listResult
End Sub
Private Function GetTheUseList(ByVal ws As WhichSheet, ByVal list As ListToUse) As Variant