set on / on autocalculation
 

Hi all
I am placing location name in cell c4 of customer listing sheet, where
autocalc is set to manual. If the calculation is automatic, immediately the
customers for that location will be listed below, as i have put vlookup down
there. Since autocal is manual, it is not showing for the new location.

pl help - i want to recalculate to set on / show customer by vlookup() / off

Sub showthis()

Dim sh As Worksheet
Set sh = Worksheets("Customer Listing")

lukfor = ActiveCell.Value
Worksheets("customer listing").Range("c4").Value = lukfor
Sheets("Customer Listing").Select
sh.Calculate

End Sub