Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Apply Macro To Other Ranges
'Hi, 'I was wondering how to apply this code to also apply to ranges: 'H102 & H103 . . .H154 & H155 . . .H206 & H207 . . . and so on . . . 'tried to cut and paste the code from Private Sub to End Sub changing only the Ranges (i.e. above) 'but got an error message "Ambiguous Name Detected: Workbook_SheetCalculate" Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Static OnlyOnce As Boolean If OnlyOnce Then Exit Sub If Range("H51").Value = "" Or Range("H51").Value = 0 Then Exit Sub If Range("H50").Value = Range("H51") Then sndPlaySound32 "ding", 1& OnlyOnce = True End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
macro apply to all worksheet | Excel Worksheet Functions | |||
Apply macro to one sheet only | Excel Discussion (Misc queries) | |||
Apply a macro to only one sheet | Excel Programming | |||
Apply macro | Excel Programming | |||
Apply a Macro to a FunctionKey... | Excel Programming |