excel vba for multiple worksheet

Hello,

I am new to this forum with very little knowlwdge in vb. I have a workbook with several tabs. I have an error checking/validation and "BeforeSave" macro that works for one worksheet. This worksheet and several other are basically same for data entry but different names like "ABC1", "ABC2" and so on. This workbook is distributed out so some users will populate only ABC1 tab and some others may be more than one tab. I would like to run this macro only on tabs that are used for data entry or you may say active tabs only. I appreciate the help.

Thanks

insert some lines like this at the start of your macro.

This will cause the macro to exit if the wrong sheet is active.

Please Login or Register  to view this content.

Below is the code I tried but is not working...
I have 15 worksheets in a workbook, 10 are names "ALPHA1", "ALPHA2" and so on and 5 other differently named. Data entry person will enter data into these ALPHA worksheets and enters data. When data entry is finished they will want to save. If they have not entered data into certain fileds then they will not be able to save their work and for this validation part is place and it works (If Trim... already tested). Some data entry person may enter into only 1 worksheet and some may enter into more than one. So each ALPHA worksheet that was populated needs to be checked thru validation.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If UCase(Left(wks.Name, 5)) = "ALPHA" Then
wks.Select
If Trim(ActiveWorkbook.Worksheets("wks").Range("A200")) <> 0 Then
If Trim(ActiveWorkbook.Worksheets("wks").Range("B200")) < 6 Then Cancel = True
If Cancel = True Then _
MsgBox "MyMsg. "
End If
End If
Next wks
End Sub


thanks
vjraman