Operating Engineer
Closed
                                    
                        Shailesh                    
                                    -
                            Apr 25, 2010 at 04:20 PM
                        
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Apr 25, 2010 at 08:35 PM
        rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Apr 25, 2010 at 08:35 PM
        Related:         
- Operating Engineer
 - Ubuntu operating system download - Download - Linux
 - Windows 10 operating system free download full version with key - Download - Windows
 - Chrome operating system download - Download - Security and maintenance
 - Kali operating system download - Download - Linux
 - Escape the ayuwoki mac operating systems store - Download - Horror
 
1 response
                
        
                    rizvisa1
    
        
                    Posts
            
                
            4478
                
                            Registration date
            Thursday January 28, 2010
                            Status
            Contributor
                            Last seen
            May  5, 2022
            
            
                    766
    
    
                    
Apr 25, 2010 at 08:35 PM
    Apr 25, 2010 at 08:35 PM
                        
                    Sub rangeSelect()
On Error Resume Next
    
Err.Clear
        
If (Range("A1") <> "") Then Range(Range("A1")).Select
        
If Err.code = 0 Then
                    
If (Range("B1") <> "") Then Range(Range("B1")).Select
            
If Err.code = 0 Then
            
Range(Range("A1") & ":" & Range("B1")).Select
End If
            
End If
    
Err.Clear
On Error GoTo 0
    
End Sub
            On Error Resume Next
Err.Clear
If (Range("A1") <> "") Then Range(Range("A1")).Select
If Err.code = 0 Then
If (Range("B1") <> "") Then Range(Range("B1")).Select
If Err.code = 0 Then
Range(Range("A1") & ":" & Range("B1")).Select
End If
End If
Err.Clear
On Error GoTo 0
End Sub