Thank you for replying me but can you tell me where should i put this code because i don't have any idea about it ?
Code:
Select Case ComboBox1.Value
Case "A1"
Call A1
Sub A1()
'
' A1 Macro
'
'
ActiveWorkbook.Save
Range("M8:Q17").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("Z1:AD9").Select
ActiveWindow.ScrollColumn = 6
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Range("M8").Select
ActiveSheet.Paste
Range("A3").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub
Bookmarks