Return to top of list on vlook and clear button

[MarkDShark]

I need a code added that will return vlook list back to the first entry open hitting the clear button.

The first entry on my VLOOK list, is "Select". Need to be able to hit clear, then the list to revert back to the top of the list. Code used below. Thanks!

Sub clear_data0101()
'
' clear_data0101 Macro
' Macro recorded 9/2/2011 by TSXFB
'
'
Range("C16:C25").Select
Selection.ClearContents
Range("F16:F25").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=18
Range("C39:C48").Select
Selection.ClearContents
Range("F39:F48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-24
Range("B10:F10").Select
Range("C16").Select
Selection.ClearContents
End Sub

 

[dave3009]

I'm not entirely sure what you need this code to do but it can be cleaned up and rewritten like so...

Sub clear_data0101()
'
' clear_data0101 Macro
' Macro recorded 9/2/2011 by TSXFB
'
'
Range("C16:C25, F16:F25, C39:C48, F39:F48, B10:F10").ClearContents
End Sub

 

[MarkDShark]

Well im using VLOOK to reference what i select in a drop down list and to populate another cell with an entry. The begging on the list, is the word 'Select". What i wanted the clear button to do, is clear the sheet and then clear the list and revert it back to "select" which is the top entry.

 

[dave3009]

Can you post a sample of your spreadsheet please?