I have created a macro for a spreadsheet I am developing and would like it to execure whenever there is a change in the vlue of a cell. The cell contains the selection from a pull down menu. So whenever I select another value from the menu that will be shown in cell M30 I want the macro below to automatically execute.
Would appreciate any suggestions. The current macro is below.
Hipster
Sub PasteClimateData8()
'
' PasteClimateData8 Macro
' Macro recorded 11/8/2005 by Mike Schell
'
' Keyboard Shortcut: Option+Cmd+g
'
Sheets("Climate Data").Select
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Cells.Find(What:=ActiveCell.Text, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
, MatchCase:=False).Activate
ActiveCell.Range("A1:B1").Select
ActiveWindow.ScrollRow = 8746
ActiveCell.Range("A1:B8762").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calculations").Select
Range("D10").Select
ActiveSheet.Paste
Sheets("Inputs").Select
End Sub
Would appreciate any suggestions. The current macro is below.
Hipster
Sub PasteClimateData8()
'
' PasteClimateData8 Macro
' Macro recorded 11/8/2005 by Mike Schell
'
' Keyboard Shortcut: Option+Cmd+g
'
Sheets("Climate Data").Select
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Cells.Find(What:=ActiveCell.Text, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
, MatchCase:=False).Activate
ActiveCell.Range("A1:B1").Select
ActiveWindow.ScrollRow = 8746
ActiveCell.Range("A1:B8762").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calculations").Select
Range("D10").Select
ActiveSheet.Paste
Sheets("Inputs").Select
End Sub