Kalo Pakai Data Validation saya udah pernah coba pak alhamdulilah bisa tapi 
saya coba mau pakai combobox, disamping ada scriptnya berikut ini :
 Private Sub Cb_Nama_Change()
 Nama = Range("$C$2").Value
 Application.ScreenUpdating = False
    Sheets(Nama).Range("A4:G1000").Copy
     Range("Report!B10").PasteSpecial xlPasteFormulasAndNumberFormats
 Application.CutCopyMode = False
 
 Application.ScreenUpdating = False
 Range("B10").Select
 
 End Sub

Kirim email ke