Run a macro by running a different macro

[Joe9238]

Hi, I have some code as seen below that I would like to be run part way through the code of another macro. How do you do this? Thanks in advance

Public Function CheckSheet( _ByVal SheetName As String _
   ) As Boolean
   
   For Each TargetSheet In wbTarget.Sheets
      If UCase(TargetSheet.Name) = UCase(Quote) Then
        doessheetexist = True
         GoTo linemarker1
         Exit For
      End If
   Next TargetSheet
   If doessheetexist = False Then GoTo linemarker2
End Function

 

[dmt32]

Hi,
to call a Function that returns a Boolean value from with your code you would do something like this

  If CheckSheet("Sheet1") Then
    
    'sheet exists do stuff
    
    Else
    
    MsgBox "Sheet Does Not Exist!"
    
    End If

Your CheckSheet function has one argument which requires the name of the worksheet to be passed as a string. If it exists, True is returned otherwise False.

HOWEVER - your function as written will not compile & even if it did, would only return a False result.

If you are just testing for a sheets existence within active workbook there are number of favoured ways amongst the forum of doing this - here is one I have added to your function.

Public Function CheckSheet(ByVal SheetName As String) As Boolean
    On Error Resume Next
    CheckSheet = CBool(Len(Worksheets(SheetName).Name) > 0)
    On Error GoTo 0
End Function

Dave

 

[Joe9238]

Hi,
to call a Function that returns a Boolean value from with your code you would do something like this

  If CheckSheet("Sheet1") Then
    
    'sheet exists do stuff
    
    Else
    
    MsgBox "Sheet Does Not Exist!"
    
    End If

Your CheckSheet function has one argument which requires the name of the worksheet to be passed as a string. If it exists, True is returned otherwise False.

HOWEVER - your function as written will not compile & even if it did, would only return a False result.

If you are just testing for a sheets existence within active workbook there are number of favoured ways amongst the forum of doing this - here is one I have added to your function.

Public Function CheckSheet(ByVal SheetName As String) As Boolean
    On Error Resume Next
    CheckSheet = CBool(Len(Worksheets(SheetName).Name) > 0)
    On Error GoTo 0
End Function

Dave

The code works great. Thanks for the help!